Question

Запиши программу на языке Паскаль для

Answer 1

var x,y:integer;beginread(x);if x<= 0 then y := 0; if x>0 then if x<=1 then y:=x; if x>1 then y:=x*x; write(y); end.

Answer 2

var x,y:integer;
begin
read(x);
if x<= 0 then y := 0;
if x>0 then
if x<=1 then y:=x;
if x>1 then y:=x*x;
write(y);
end.

Answer 3

с пробелами

Answer 4

ответ 0

Answer 5

https://znanija.com/task/28733253 вот это еще реши пж

Answer 6

готово