Question

Ввести с клавиатуры 10 чисел. если квадрат числа меньше 100, напечатать число и его квадрат ( программа паскаль), помогите :(

Answer 1

program sdklvnd;
  uses crt;
type 
mas=array[1..10] of integer;
var 
a:mas; 
z,x,i:integer;
begin 
for i:=1 to 10 do   
begin     
writeln('vvedite x');     
readln(x);     
a[i]:=x;   
 end;   
 for i:=1 to 10 do   
  if (a[i]*a[i]<100) then   
    writeln(a[i],' ',a[i]*a[i]);
end.