Выбирай точка с запятой, например:
echo "Hello World";
Var
p, q: real;
begin
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(p);
write('Вес яблок (кг) -> ');
readln(q);
writeln('Стоимость покупки: ', (p * q):6:2, ' руб.');
end.
<span>"вознесся выше он главою непокорной Александрийского столба" -58 симв.
58 * 16 = </span>928 бит / 8 = 116 байт.
4. 16*30*32*16 = 245760 бит / 8 = 30720 байт.
5. 16*50*64*16 = 819200 бит / 8 = 102400 байт.
6. 14 * 36 * 64 * 2 байт = 64512 байт
Var P,S,t,g:real;begin write('введите массу стола '); read(t); S:=100; g:=10; P:=(g*t)/S;write('давление на пол, создаваеммое столом равно ',P);end.
var i, n: integer;
begin
read(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
end.