program three_variables;
var intVariable: integer; realVariable: real; strVariable: string;
begin Write('Введите целое число: '); Readln(intVariable);
Write('Введите вещественное число: '); Readln(realVariable);
Write('Введите строку: '); Readln(strVariable);
Writeln('Значения переменных:'); Writeln('Целое число: ', intVariable); Writeln('Вещественное число: ', realVariable); Writeln('Строка: ', strVariable); end.
