даны три числа возвести в квадрат те из них значения которых отрицательны

6 октября, 2022 от ilyuha_otvecha

Вопрос от посетителя:

PROGRAM first;
VAR i,a,b:integer;
BEGIN
cls;
read(a,b,i);
if a<0 then write(sqr(a));

if b<0 then write(sqr(b));

if i<0 then write(sqr(i))
END.