Помогите с задачей по Delphi! Надо вывести 10 задач(a*b=c) в цикле, программа проверяет задачи и считает баллы. В ходе цикла надо вывести правильный ответ(если вы ввели неправильный ответ). Также программа считает количество баллов в зависимости от правильных ответов.
-------------------------------------------------------------------------------------
var i,x,y,answer,input:Integer;

begin
Writeln(*TEST*);
randomize;
answer:=10;

for i:=1 to 10 do
begin
Write(Random(x), * ,Random(y), = ); //я не знаю как задать диапазон для
//переменной
Readln(input);
if input:=x*y then //программа выдает ошибку что нужен тип
//переменной boolean
begin
answer:=answer;
end
else
begin
write(WRONG!,x, * ,y, = ,x*y)
answer:=answer-1;
end;
end;

Writeln(Correct answers - ,answer);
case answer of
10:Writeln(Excellent!);
9,8:Writeln(Good!);
6,7:Writeln(OK!);
0..5:Writeln(Bad!);
end;

Readln;
-------------------------------------------------------------------------------------

Var i,x,y,answer,input,k:Integer;

begin
Writeln(*TEST*);
randomize;
answer:=10;
k:=0;
for i:=1 to answer do
 begin
 x:=Random(9)+1;
 y:=Random(9)+1;
 Write(x, * ,y, = ); 
 Readln(input);
 if input=x*y then
  begin
  k:=k+1; 
  writeln(RIGHT!);
  end
 else writeln(WRONG! ,x, * ,y, = ,x*y);
end;

Writeln(Correct answers - ,k);
case answer of
10:Writeln(Excellent!);
9,8:Writeln(Good!);
6,7:Writeln(OK!);
0..5:Writeln(Bad!);
end;
end.

Пример:
*TEST*
2 * 4 = 8
RIGHT!
7 * 9 = 7
WRONG! 7 * 9 = 63
4 * 4 = 16
RIGHT!
1 * 2 = 2
RIGHT!
4 * 1 = 4
RIGHT!
9 * 7 = 63
RIGHT!
9 * 8 = 72
RIGHT!
3 * 1 = 3
RIGHT!
9 * 4 = 36
RIGHT!
6 * 4 = 24
RIGHT!
Correct answers - 9
Excellent!

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.