3 рубля, потому что он может назвать подмножества: "четные числа" и "нечетные числа"
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
Var
a,b : integer;
begin
writeln('vvedite 1 chislo')
readln(a)
writeln('vvedite 2 chislo)
readln(b)
writeln(a + b)
end.
1 бочка = 3 галлона
2 бочка = 5 галлонов
Набираем во 2 бочку [0:5]
Переливаем из 2 в 1 бочку [3:2]
Выливаем из 1 бочки [0:2]
Переливаем из 2 в 1 бочку [2:0]
Набираем во 2 бочку [2:5]
Переливаем из 2 в 1 бочку [3:4]
Выливаем из 1 бочки [0:4]
Теперь у нас во второй бочку 4 галлона
Аналогично
begin
for var a := 100 to 999 do begin
for var b := 100 to 999 do begin
if a * b = a + b then writeln(a,'-', b);
end;
end;
end.