Var
s:string[10];
f:Text;
begin
Assign(f,'a.txt'); Reset(f);
Readln(f,s); Close(f);
Writeln(s)
end.
54 Кбайт = 54*1024*8 бит
Время передачи при скорости 2^13 бит/сек =
54*1024*8/2^13 = 54 сек
Стоимость = 54*5 = 270 коп
Время передачи при скорости 2^10 бит/сек =
54*1024*8/2^10 = 432 сек
Стоимость = 432*5 = 2160 коп
Переплата = 2160-270 = 1890 коп.
7+5=12
12:2=6
6+3=9
6-1=8
4*5=20
20-3=17
17*3=51
51+4=55
X:=sqrt(x); лол тут надо минимум 20 символов)
Program n1;
var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.