Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу которая из 2х введённых с клавиатуры чисел положительное число устраивает а отрицательное возводит в квадрат

Ответ оставил Гость

Var
a,b:integer;
begin
write(Введите A=);read(a);
write(Введите B=);readln(b);
if a<0 then
writeln(a=,sqr(a))
else
writeln(a=,a);
if b<0 then
writeln(b=,sqr(b))
else
writeln(b=,b);
end.