)! в pascal. введенное число возводится в квадрат, если оно большее 0 или не меняется. нужно программу ( подробно) и блок-схему.

Var n:integer;
begin 
writeln('input n'); readln(n); 
 if n>0 then   
begin   
 n:=sqr(n);   
 writeln('n=',n);   
end 
else writeln('n<=0'); 
end. 
Думаю, с блок-схемой по программе проблем не будет.)

Var A:integer;
begin
writeln('Введи число');
readln(A);
if A>=0 then begin A:=A*A; writeln(A); end;
else writeln(A);
readln;
end.