Все лабораторные работы по паскалю / 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.