Тренажер для проверки умножения Pascal abc

[ПИИ]

Разработайте простейший тренажер для учащихся младших классов,
который проверяет:
знание таблицы умножения (т.е. умение перемножать числа от 1 до
10);

[eoln]

Оставьте адрес своей электронной почты, чтобы мы смогли отправить Вам решение.

[whatever]

Сообщение от eoln

Оставьте адрес своей электронной почты, чтобы мы смогли отправить Вам решение.

Оставит ведь.

program mnozh;
var
  c:char;
begin
  writeln('Знаешь таблицу умножения до десяти включительно? y/n');
  readln(ch);
  if (ch='y' or ch='Y') then
    writeln('Молодец')
  else
    writeln('Учи, вернусь - проверю');
  readln;
end.

P.S. Что-то я как троль толстею последнее время

[Sciv]

P.S. Что-то я как троль толстею последнее время

Дык корма много. Скоро сессия начнется - так вообще косяками на нерест пойдут

[Wadduh]

Вот..написал когда-то..

{==ПРОГРАММА-ЭКЗАМЕНАТОР ПО ТАБЛИЦЕ УМНОЖЕНИЯ==}
var a,b,res1,res2:integer;ext:string;check:boolean;
var i,err:integer;
begin
writeln('Знаете ли Вы таблицу умножения? Проверьте себя!');
repeat
err:=0;
for i:=1 to 15 do begin
randomize;
a:=1+random(10);
b:=1+random(10);
res1:=a*b;
write(i,' Сколько будет ',a,' умножить на ',b,' ? ');
readln(res2);
if res1=res2 then
check:=true
else
check:=false;
if check then
writeln('Вы правы! ',a,' умножить на ',b,' равно ',res2)
else begin
writeln('Вы ошиблись! ',a,' умножить на ',b,' равно ',res1);
err:=err+1;
end;
end;
case err of
0:writeln('Отлично!!!');
1,2:writeln('Хорошо!!');
3..5:writeln('Плохо!');
else
writeln('Вы допустили более 5 ошибок((');
end;
write('Желаете попробовать еще раз? Если не желаете, так и пишите -  нет. ');readln(ext);
if ext='нет' then break;
until false;
end.