С клавиатуры вводится 2 числа, если они оба больше 5, то найти их полусумму, иначе удвоенное произведение.

var chisloo1, chisloo2: integer; {присвоение переменным числового типа данных} begin {старт алгоритма} Readln (chisloo1, chisloo2); {считывание вводимых данных с клавиатуры} if (chisloo1>5) and (chisloo2>5) then writeln ((chisloo1+chisloo2) / 2) else writeln (chisloo1*chisloo2*2); {проверка условия оператором "if" и вывод результата на экран} end.