Помогите с информатикой

Question

Помогите с информатикой

Answer 1

Var
a,b,c,z:integer;
Begin
a:=random(100)+1;
b:=random(100)+1;
if b>a then 
Begin
c:=a;
a:=b;
b:=c;
End;
c:=a-b;
Writeln('Сколько будет ', a,'-',b);
Readln(z);
if z=c then Writeln('Молодец')
else Writeln('Холодец ',a,'-',b,'=',c)
End.

Comments

Меня очень удивили "однозначные числа от 1 до 100", но ладно...