Leks2, обьявляет две переменные.

x1 - целого типа
Y - вещественного

Amarelle, никогда не понимал зачем это)
добавлено спустя 37 секунд:
Leks2, Program test; - так и напиши, бессмысленная ненужная муйня)

Leks2, да. 2 и 3

M0rtiis, я тоже.. Проще уже в начале кода прописать WriteLn('Программа бабабама');