Czy da się zmodyfikować podany kod programu tak, aby zamiast wpisywania, generował sam liczby i wyświetlał je oraz na koniec wyświetlał maksymalną?
var n,i,x,max:integer;
begin
Write('Podaj ilosc liczb, ktora chcesz wczytac: ');
Readln(n);
max:=0;
for i:=1 to n do begin
Write('Podaj wartosc liczby nr ',i,': ');
Readln(x);
if x>max then begin max:=x; end;
end;
writeln('Najwieksza wartosc wczytanej liczby to ',max);
Readln;
end.