Сделайте пожалуйста это в паскале АВС.Записать файл:5 схожих целых чисел.7 всех

программку надобно сохранить на диск и запустить ее, после этого в папке с этой программкой появится файл "output.txt", его надобно открытью

1-ые 5 чисел однообразные

после их будут идти 7 всех чисел

потом сумма 10 рандомных чисел

потом творенье 10 случайных чисел

программа:

var a,i: integer;

t:text;

begin

assign(t,'output.txt');

rewrite(t);

a:=random(100);

for i:=1 to 5 do begin write(t,a,' '); end;

writeln;

for i:=1 to 7 do begin write(t,random(100),' '); end;

writeln;

a:=0;

for i:=1 to 10 do begin a:=a+random(100); end;

write(t,a,' ');

a:=1;

for i:=1 to 10 do begin a:=a*random(100);end;

writeln(t,a);

close(t);

end.