Напиши программу, которая при вводе трёхзначного натурального числа определяет сумму цифр, если число кратно 6 и оканчивается на 4, в противном случае выводит произведение цифр числа.
В чём может быть ошибка у меня ?

Сразу после "if" (x mod 6=0) and ( x mod 10=4)

Угу,яснненько,вы конечно же заслуживаете лучшее решение)

А стоп,это не вы

Ну и ладно

Вам тоже спасибо

Program hhh54;var x: longint;begin  read (x);  if (x mod 6=0) and ( x mod 10=4) then write ((x div 100)+((x div 10) mod 10)+(x mod 10))  else write ((x div 100)*((x div 10) mod 10)*(x mod 10));end.