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