<span>Linux конечно же )) Надо расширять свой кругозор )</span>
Понятия не имею что за постусловие , но вот лучший вариант
var i:bite;
begin
for i:=3 to 25 do
if i mod 2<>0 then writeln(o);
end.
Program adidos;
var X2,Y2,R:real;
begin
writeln('Введите X2 и Y2');
readln(X2);
readln(Y2);
R:=(X2+Y2)/2;
writeln('R=',R);
end.
Txt, doc– расширения текстовых документов.
jpg, gif, png, tiff– расширения фотографий.
avi, mpg, mpeg, wmv – расширения видеофайлов.
xls– расширение электронных таблиц Excel.
htm, html – расширения Интернет-страниц.
hlp– расширение файлов-справки.
exe, com– расширения выполняемых программ.
rar, zip– расширения архивных файлов.
dll, lib, obj– расширения файлов-библиотек.<span>
</span>
Просто умножай каждое число на 2
32 64 128 256 512 1024 и так далее