Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Получилось 6553, потому что 2000 симв на одной стр и 104857600 бит в 100 мб
Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.
15(символов)*8бит(1 символ)=120 бит (1 пароль).
120 бит * 30 (паролей) = 3600 бит( все записи).
3600бит = 450 байт.