program Uroveni3;
var c: integer;
s:string;
begin
s:='Имя_Фамилия';
writeln('Работу выполнил ',s);
writeln('Введите, сколько см надо перевести?');
readln(c);
write('В ',c,' см содержится ',c/100,' метра')
end.
Объяснение:
Имя программы
Описание переменных
Переменная, который присвоено имя и фамилия
Вывод на экран фразы: Работу выполнил s
Вывод на экран фразы: Введите, сколько см надо перевести?
Ввод переменной с
Вывод на экра фразы: В с см содержится с/100 метра
нужен балы сирия брать я не ъотел