Составьте программу которая вводит число с клавиатуры и если оно отрицательное возводит...

Question

Составьте программу которая вводит число с клавиатуры и если оно отрицательное возводит его в квадрат блок схема

Answer 1

Program z_1;
var a:real;
begin
read a;
If a>0 then writeln(a) else writeln(a*a);
end.

Comments

А есть блок схема

---

Сейчас написать ее не могу, с телефона сижу