var vstup,i,cisla,max:integer;
riadok:string;
begin
vstup:= strtoint (inputbox('zadaj','kolko cisel ma vypisat',''));
max:= random(101);
riadok:= '' + inttostr(max);
for i:= 2 to vstup do
begin
  randomize;
  cisla:= random(101);
  riadok:= riadok + ' ' + inttostr(cisla);
  if cisla>max then max:=cisla;
end;
memo1.Lines.add(riadok);
memo1.lines.add(inttostr(max));
end;
end.