Выдает ошибку: Нельзя преобразовывать тип real к integer - Turbo Pascal

Формулировка задачи:

Выдает ошибку "Нельзя преобразовывать тип real к integer." В строчке 21. Уже не первый раз такое, хочу понять от чего зависит эта ошибка?. Заранее спасибо!
program ps2;
Var
i,j,m,k:integer;
A:array[1..3,1..3] of integer;
Begin
For i:=1 to 3 do
 Begin
  For j:=1 to 3 do
   Begin
   A[i,j]:=random(10)+10;
   write(A[i,j]:3);
   End;
   writeln;
 End;
   writeln;
 For i:=1 to 3 do
    Begin
     For j:=1 to 3 do
       Begin 
        If A[i,j] > 0 then
         A[i,j]:=sqrt(A[i,j])
         Else A[i,j]:=(A[i,j]*A[i,j]);
       End;
    End; 
    For i:=1 to 3 do
  For j:=1 to 3 do
   write(A[i,j]:3);
 End.
Добавлено через 26 минут Puporev, Пожалуйста объясните если не трудно(

Код к задаче: «Выдает ошибку: Нельзя преобразовывать тип real к integer - Turbo Pascal»

textual
A[i,j]:=round(sqrt(A[i,j]));

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ