program maximum;
uses crt;
var max,i:byte;
    t:array [1..10] of byte;
begin
     clrscr;
     for i:=1 to 10 do
         begin
         t[i]:=random(249)+1;
         write(t[i],', ');
         end;
     writeln();
     max:=t[1];
     for i:=2 to 10 do
     if t[i]>max then max:=t[i];
     writeln('A legnagyobb elem: ',max);
readln;
end.