Решить в программе паскаль АВС

Var x:integer;
begin
readln(x);
if x>=0 then writeln(y=,x+2) else writeln(y=,sqr(x)); 
end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку