Первое и третье, все остальное бесконечно
var
i, b: integer;
begin
b := 0;
for i := 1 to 100 do
if (i mod 2 <> 0) then b := b + i;
writeln(b);
end.
program raf105;
var
a,b,c,sum,pro: real;
begin
write('Введите 3 вещественных числа: ');
readln(a,b,c);
sum:= a+b+c;
pro:= a*b*c;
if sum > pro
then writeln('Сумма больше произведения')
else if pro > sum
then writeln('Произведение больше суммы')
else writeln('Сумма и произведение равны');
end.
<h3><u>PascalABC 3.4.2</u></h3>
1. Появление
2. Панорама
3. Фигура
4. Случайные
5. Растворение
6. Часы
7. Рябь
8. Блеск
9. Воронка
10. Отражение
11. Чертово колесо
12. Поворот
13. Окно
14. Орбита
15. Плавный вылет