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.