program vorrandisusteem;
var x,y:integer;
vastus1,vastus2:integer;
begin
writeln('Programm leiab vorrandisusteemi lahendid');
randomize;
x:=random(4);
y:=random(4);
vastus1:=6;
vastus2:=28;
repeat
writeln('Sisesta x');
readln(x);
writeln('Sisesta y');
readln(y);
writeln('Kontrollin lahendite äigsust, asetades x ja y v„„rtused värranditesse');
writeln('2*x+y=6, 16*x+3*y=28');
if(vastus1=2*x+y)and(vastus2=16*x+3*y)then
writeln('Tubli!')
else writeln('Proovi uuesti!');
until (vastus1=2*x+y) and (vastus2=16*x+3*y);
writeln(2*x,'+',y,'=6');
writeln(16*x,'+',3*y,'=28');
end.