Помогите плессс....срочно.

Var
x,y:integer;
begin
writeln(Введите X: );readln(x);
if x <= 0 then
y:=0
else
    begin
    if (x < 0) or (x <= 1) then
    y:=x
    else
    y:=x*x
    end;
writeln(y);
end

Оцени ответ

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