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

Если нужно - тело программы:
var a:integer;beginread(a);if a<0 then a:=a*a;write(a);end.