программы с циклом ПОКА и ДО (Тема 8) (5)

program TablKV;

var
  b, i: integer;
  KK, k: real;

begin

  Write('Введите конечное число таблицы квадратов: ');
  readln(b);
  i := 1;
  writeln;
  writeln('Число':6 ,'|':8,'Его квадратный корень':22,'|':3,'Его квадрат':12 );

  repeat
    KK := sqrt(i);
    K := sqr(i);
    writeln(i:4, '|':10, KK:20, '|':5,K:6 );
    i := i + 1;
  until i > b;

end.