Составьте программу, которая из трёх введённых с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет зделать в турбо поскале зделайти ели можно с фото.​

program turbo;  

uses crt;  

var  

i,n:integer;  

begin  

clrscr;  

for i: 1 to 3 do  

begin  

readln(n);

if n>= 0 then

writeln(n,'^2 =',sqr(n));

end;  

writeln('press enter');  

readln;  

end.