Составьте программу для решения следующей задачи. Цех по ремонту бытовой техники имеет ежедневно прибыль Р, с которой платит нал

Var
  A, B, C, D: integer;
  f1, f2: Text;

begin
  Assign(f1, 'input.txt');
  Reset(f1);
  Assign(f2, 'output.txt');
  Rewrite(f2);
  while not Eof(f1) do
  begin
    Readln(f1, A, B, C, D);
    if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
    else writeln(f2,'NO')
  end;
  Close(f1);
  Close(f2)
end.

1 Байт = 8 Бит
64 ( Байта) * 8 = 512 ( Битов)

16 = 2 в ст 4.
4 бита на 1 символ
1/16 МБ = 1024 * 1024 * 8 / 16 бит = 524288 бит
ответ 524288 / 4 = 131072  символов

Const n=10; 
var a:array[1..n] of integer;
i,t:integer; 
begin
Randomize;
writeln('A:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
for i:=1 to n div 4 do
 begin t:=a[i]; a[i]:=a[n div 2-i+1]; a[n div 2-i+1]:=t;
    t:=a[n div 2+i]; a[n div 2+i]:=a[n-i+1]; a[n-i+1]:=t; end;
writeln('new A:');
for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
<span>A:
 -8 -10 -7 4 -6 10 7 10 -7 1
new A:
 -6 4 -7 -10 -8 1 -7 10 7 10</span>

Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.

Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if  i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.