Program chisla1;
uses crt;
var a,b : integer;
begin
write('Введите два числа: ');
Readln(a,b);
if a>b then writeln(a,'>',b);
if a
Сперва разберёмся, какие значения может принимать каждая переменная:
i, k: integer - целые числа
x, y: real - дробные и целые числа
n: char - один символ
z: Vremia_God - Win, Spr, Sum или Otm.
Опираясь на это, получаем следующий ответ:
1-f,d
2-a,e
3-a,e
4-a,c,e
5-b
6-a,c,e