Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / p08

program prog17;
uses crt;
var a,b,c: integer;
begin randomize;
      a:= random(999);
      c:=1000;
writeln('У вас 1000$ - ');
    while a <> b do begin
        write('Введи число: ');
        readln(b);
        if b > a
          then
           begin
            writeln('Много');
            c:=c-100;
            writeln('У вас осталось - ', c , '$');
            end
        else
            if b < a then
              begin
                writeln('Мало');
                 c:=c-100;
                 writeln('У вас осталось - ', c , '$');
                end
            else
                writeln('Угадал');
    end;
    writeln('Ваш выигрышь составляет - ',c,'$');
 readln
end.