Составьте программу которая вводит число c клавиатуры и если оно отрицателное возводит его в квадрат пожалуйста блок схему заранее спасибо блок схему блок схему
Если нужно - тело программы: var a:integer;beginread(a);if a<0 then a:=a*a;write(a);end.<hr>
спасибо