program Task1;
var k,p,s,result: longint;
begin
readln(k);
readln(s);
readln(p);
if p < 100 then
writeln(p)
else
writeln('Введите число не превышающее 100%');
readln(p)
end.
Вот код, мне надо что бы переменная "Р", при вводе не превышала 100, но когда я пытаюсь ввести "p", вводится четвёртая переменная, игнорируется оператор Else, найдите пожалуйста ошибки в коде, и как это можно исправить. Буду очень признателен.
var k,p,s,result: longint;
begin
readln(k);
readln(s);
readln(p);
if p < 100 then
writeln(p)
else
writeln('Введите число не превышающее 100%');
readln(p)
end.
Вот код, мне надо что бы переменная "Р", при вводе не превышала 100, но когда я пытаюсь ввести "p", вводится четвёртая переменная, игнорируется оператор Else, найдите пожалуйста ошибки в коде, и как это можно исправить. Буду очень признателен.