Вывести таблицу из квадратов чисел от 0 до 1 с шагом 0.1. Ответ ** языке Pascal

Question

Вывести таблицу из квадратов чисел от 0 до 1 с шагом 0.1. Ответ на языке Pascal

Answer 1

Var c,i:real;
begin
c:=0;i:=0;
while i<1 do begin<br>c:=i^2;
i:=i+0,1;
writeln('Квадрат числа',i,'=',c);
end;
readln;
end.

Answer 2

//Pascal
var i: real;
begin
while i < 1 do
begin
  writeln(i:0:1, ' в квадрате = ', sqr(i):0:2);
  i := i + 0.1;
end;
  readln;
end.