Дистанционная подготовка: 2937
Re: 2937
от Галина Cавченко - Вторник 16 Сентябрь 2014, 17:06
  program m1;
var
k: integer;
begin
write ('Введите целое число');
readln (k);
writeln ('The next number for the number ', k, ' is ', k+1, '.');
writeln ('The previous number for the number ', k, ' is ', k-1, '.');
end.