Название программы должно быть только латинским
var IX,Y,P:=integer; заменить на var IX,Y,P: integer;
Readln('Введите значение IY'); заменить на Writeln('Введите значение Y');
После Writeln('Введите значение Y'); добавить Readln(Y);
В предпоследней строке ( Writeln(p) ) нет ;