Program proga;
Var
a,b,c,d,s;
Begin
Writeln('Введите 4 числа через пробел и нажмите Enter');
Readln(a,b,c,d);
Writeln(a+b+c+d);
Writeln((a+b+c+d)/4);
End.
Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.
Лишнее это фотоаппарат так как он не являеться устройством ввода информации ....
2)var s,i: integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Сумма в строке = ',s);
<span>end.</span>
3)var x,y: integer;
begin write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
if x>y then writeln('x>y')
else if x<y then writeln('x<y')
else writeln('x=y');
end.
Var x1,x2,y1,y2:longint;
begin
read(x1,y1,x2,y2);
<span>if ((abs(x1-x2)=1)and(y1=y2)) </span>
<span>or ((abs(y1-y2)=1)and(x1=x2)) </span>
or ((abs(x1-x2)=1)and(abs(y1-y2)=1))
then writeln('YES') else writeln('NO');
<span>end.</span>