Program Mark1;

[email protected] в категроии Информатика, вопрос открыт 02.10.2018 в 19:09

var
log, pass, userlog, userpass, choice, usernum: string;
x, y, i, num, p: real;
c: char;
begin
log:=('admin');
pass:=('admin');
writeln('Введите логин');
readln(userlog);
writeln('Введите пароль');
readln(userpass);
if(userlog=log) and (userpass=pass) then writeln('Добрый день!')
else begin
writeln('Ошибка');
exit;
end;
i:=0;
while i <= 100000 do begin

writeln('Введите название программы');
readln (choice);
if (choice= 'calc')then begin
writeln('Введите первое число');
readln(x);
writeln('Введите второе число');
readln(y);
writeln('Введите знак действия');
readln(c);
case c of
'+':writeln(x,'+',y,'=',x+y);
'-':writeln(x,'-',y,'=',x-y);
'*':writeln(x,'*',y,'=',x*y);
'/':writeln(x,':',y,'=',x/y);
end;
end;
if (choice = 'game1')then begin
num:=random(100);
writeln('У вас 20 попыток');
while p <= 20 do begin
writeln('Введите число от 0 до 100. Для выхода введите q');
readln(usernum);
if (usernum = 'q')then exit;
if (usernum >= num)then writeln('Много');
if (usernum <= num)then writeln('Мало');
if (usernum = num)then begin
writeln('Вы отгадали');
exit;
end;
end;
end;
end;
readln
end.


ошибка в строке 44 if (usernum >= num)then writeln('Много');
что не так?