Дано число примечать этому числу с право и слево 1
Var
n: integer;
begin
write(Введите число: );
read(n);
writeln(Полученное число: 1, n, 1)
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
n: integer;
begin
write(Введите число: );
read(n);
writeln(Полученное число: 1, n, 1)
end.