Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
сама только сделала. вот решила помочь
128-символьный алфавит – 7 бит на символ
1байт = 8 бит
количество символов в сообщении = 7875 * 8 / 7 = 9000
количество строк = 9000 / 50 = 180
А)
1-b:=a(b:=5.8)
2-a:=b(a:=5.8)
а:=5.8 b:=5.8
б)
1-b:=a(b:=0)
2-a:=b(a:=0)
а:=0 b:=0