var
x,y,z:integer;
vastus:real;
begin
randomize;
x:=random(10);
y:=random(6);
repeat
writeln(x,'+',y,'=');
readln(z);

if (z<>x+y) then
writeln('Vale, proovi uuesti!')

else
begin
writeln('Oige vastus, vota jargmine tehe!');
end;
until (z=y+x);
randomize;
x:=random(30); y:=random(30);
writeln('Kui ristkliku klje pikkus on ',x);
writeln('Ja ristkliku pindala on ',y);
writeln('Kui suur on siis teine klg?');
vastus:=y/x;
readln(vastus);

if abs(vastus-y/x)<=0.1 then
writeln('Tubli oled!')
else
writeln('Labi porusid!');

writeln('Selleks korraks on koik!');
end.