Pascal:
var N: integer;
begin
write('Введите число N=');
read(N);
if N>3 then begin
N:=N+10;
writeln('Увеличиваем число на 10');
end
else begin
N:=N-10;
writeln('Уменьшаем число на 10');
end;
writeln('Новое значение числа N=',N);
end.
Pascal:
var N: integer;
begin
write('Введите число N=');
read(N);
if N>3 then begin
N:=N+10;
writeln('Увеличиваем число на 10');
end
else begin
N:=N-10;
writeln('Уменьшаем число на 10');
end;
writeln('Новое значение числа N=',N);
end.