Question

Помогите пожалуйста )Срочно! Задача в Pascal. Введенное число возводится в квадрат, если оно большее 0 или не меняется.  Нужно программу ( подробно) и блок-схему.

Answer 1

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. 
Думаю, с блок-схемой по программе проблем не будет.)

Answer 2

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