Здесь по условию программы переменная а будет = 5.
Если <5, то с=1, если >5, то с=2, иначе 3. Если а и не меньше, и не больше 5, значит она равна 5.
N=2^i, i=7
40*60*65*7=<span>
1092000 бит/8/1024=</span><span><span>133,3008 Кбайт</span></span>
var
s, r, l: real;
begin
read(r);
s := pi * r * r;
l := 2 * pi * r;
write(s:0:3, #10, l:0:3);
end.
Ну например: (по выделению тепла) Костёр, плита, лампа накаливания. Или (по прочности) корпус косм. ракеты, корпус машины, стеклопакет окне, тарелка, соломка.
Для вывода текста оператором writeln необходимо указывать текст в скобках
например writeln("какой-то текст")