program ylesanne;
var a,i, x,b, y,z, min, max,minkoht, maxkoht,vastus:integer;
ylesanded:array[1..10] of integer;
begin
writeln('Programm leiab maksimaalse ja minimaalse arvu.');
randomize;
max:=0;
a:=random(4)+1; x:=random(4)+1;
b:=random(4)+1; y:=random(4)+1;
z:=a*x+b*y;
writeln('Kui palju on',a,'*',x,'+',b,'*',y,'?');
min:=z;
ylesanded[1]:=z;
for i:= 2 to 10 do

begin
a:=random(4)+1; x:=random(4)+1;
b:=random(4)+1; y:=random(4)+1;
z:=a*x+b*y;
if z>max then
 begin
 max:=z;
 maxkoht:=i;
 end;
 if z<min then
 begin
 min:=z;
 minkoht:=i;
end;
ylesanded[i]:=z;
writeln('Kui palju on',a,'*',x,'+',b,'*',y,'?');
{readln(vastus);}
end;
writeln('Suurim vastus on ',max, ',  tema on ', maxkoht,'. kohal.');
writeln('Vahim vastus on', min, ' , tema on ', minkoht, '. kohal.');



for i:=1 to 10 do
    writeln(ylesanded[i]);
 end.
{
max:=vastus;
min:=vastus;

begin
write('Kirjuta vastus');
readln(vastus);
if(vastus>max) then
max:=vastus;
end;
writeln('Maksimaalne vastus on',max);
if(vastus<max)then
 begin
  writeln('Maksimaalne vastus puudub');

write('Sisesta vastus');
readln(vastus);
if (vastus<min) then
min:= vastus;
end;
end.

ylesanded}
end.





begin
write('Kirjuta vastus');
readln(vastus);
if(vastus<min) then
min:=vastus;
end;
end.