написать программу, которая для трёхзначного числа, если оно четное, то возводит в квадрат, а если нечётное, то находит сумму цифр.

var a:integer;beginreadln(a);if a mod 2 = 0 then writeln(a*a) elsewriteln((a div 100) + (a mod 10) + ((a mod 100) div 10));end.