С клавиатуры вводится 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.