Программа на паскаль

Найди бесплатный чат gpt где-либо, он умеет писать программы по запросам

Program P1;
uses crt;
const n=10;
var a: array [1..n] of integer;
b: array [1..n] of byte;
c: array [1..n] of integer;
i: byte;
begin
textbackground (blue);
textcolor (white);
clrscr;
writeln ('Введите с клавиатуры элементы 1-ого массива (только целые числа).');
writeln ('После ввода каждого из чисел нажимайте клавишу Enter.');
randomize;
for i:=1 to n do begin
b[i]:=random (10);
write ('Введите ', i, '-й элемент массива (число): ');
readln (a[i]);
c[i]:=a[i]+b[i];
end;
write ('Введенный массив:');
for i:=1 to n do write (' ', a[i]);
writeln (' ');
write ('Сгенерированный массив:');
for i:=1 to n do write (' ', b[i]);
writeln (' ');
write ('Массив, состоящий из суммы чисел введенного и сгенерированного массивов:');
for i:=1 to n do write (' ', c[i]);
writeln (' ');
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.

program p1;
var n,m,i,n7,nm,n5,b:integer;
begin
write('n m: '); readln(n,m);
if n>m then begin i:=n; n:=m; m:=i end;
n7:=0; nm:=1; n5:=0; b:=0;
for i:=n to m do
begin
if i mod 7=0 then n7:=n7+i;
if i<0 then begin nm:=nm*i; b:=1 end;
if i mod 10=5 then n5:=n5+1
end;
if b=0 then nm:=0;
writeln(n7,' ',nm,' ',n5);
end.