Пожалуйста посчитайте С ИНФОРМАТИКОЙ!

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