Ответ:

Объяснение:

var

 i : integer;

 a, b : Double;

begin

 for i := 10 to 20 do begin

  a := Sqrt(i);    // это посчитаем корень квадратный

  b := Sqr(i);     // это посчитаем квадрат числа

  Writeln(Format('i=%d   Корень=%2.2f   Квадрат=%2.0f', [i, a, b]));

 end;

end;