Question

Срочно! До завтра надо!
Напишите программу для решения
y:=x+5 если x<0 ;во всех остальных случаях y:=x+10

Answer 1

var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+5 else
y:=x+10;
writeln('y=',y);
end.