var x: integer;
begin
write('Введите число: ');
readln(x);
if (x>0) then x:=x+10 else x:=sqr(x);
writeln('x = ',x);
end.
Объяснение:
var x: integer;
begin
write('Введите число: ');
readln(x);
if (x>0) then x:=x+10 else x:=sqr(x);
writeln('x = ',x);
end.
Объяснение: