100*512*8 бит = 409 600 бит = 51 200 байт = 50 кб
1) Вычисляем длины всех его сторон
uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
end.
<span>волк полк пола поза коза,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,</span>