var
x,y,i,vastus,oiged:integer;
begin
oiged:=0;
randomize;
for i:=1 to 5 do
begin
x:=random(10)+1;
y:=random(10)+1;
writeln(x,'*',y,'+',x,'=' );
readln(vastus);
if (vastus=x*y+x) then
begin
 writeln('Tubli');
 oiged:=oiged+1
end
else
begin
writeln('åpi veel.');
writeln('See tuleb sulle kasuks.');
end;
end;
writeln('Kokku vastasid äigesti ',oiged,' korda.');
end.