Определить, делиться ли целое число на 6, если "да", то возвести его в квадрат. |Pascal ABC| (Алгоритмическая конструкция ВЕТВЛЕНИЕ; Принятие решений в программе; Полная и сокращенная формы условного оператора; Составной оператор и т.д.
Var x:integer; begin write('Введите число: '); readln(x); if x mod 6=0 then writeln(sqr(x)) end.