Программа-экзаменатор с процедурой

[richard.hendricks]

Написал вот такой код. На 20ой строке компилятор выдает ошибку, мол вместо '.' должно быть ';'.

uses crt;
var
  a, b, c, d, e, f: integer;

procedure Mark;
begin
  case f of 
    1: writeln('Очень плохо');
    2..5: writeln('Плохо');
    6..7: writeln('Хорошо');
    8..10: writeln('Отлично');
  end;

begin
  for c := 1 to 10 do 
  begin
    randomize;
    a := random(100) + 1;b := random(100) + 1;
    writeln(a, '*', b, '= ');
    readln(e); 
    if (e = a * b) then f := f + 1;
  end;
  Mark;
end.

_____
Отформатировал ваш код, расставил отступы.

И ещё добавил коды оформления!
Напоминаю, что Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Iron Monk]

uses crt;
 var a, b, c, d, e, f: integer;
procedure Mark;
begin
 case f of 
 1:writeln ('Очень плохо');
 2..5: writeln ('Плохо');
 6..7: writeln ('Хорошо');
 8..10: writeln ('Отлично');
 end;
end;
 begin
 for c:=1 to 10 do begin
 randomize;
 a:=random(100)+1; b:=random(100)+1;
 writeln (a,'*',b, '= ');
 readln (e); 
 if (e=a*b) then f:=f+1;
 end;
 Mark;
 end.