Определить, делиться ли целое число на 6, если "да", то возвести его в квадрат.
|Pascal ABC|
(Алгоритмическая конструкция ВЕТВЛЕНИЕ; Принятие решений в программе; Полная и сокращенная формы условного оператора; Составной оператор и т.д.

var  x:integer;begin  write('Введите число: ');  readln(x);  if x mod 6=0 then  writeln(sqr(x))end.