Дано число, если оно кратко 5, то найти площадь круга с радиусом равным 5, если число четное, то найти площадь квадрата с этим числом (паскаль 8 кл)

var a: integer;const r = 5; pi = 3.1415;beginwriteln('Введите число.');Readln (a);if a mod 5 = 0 thenwriteln ('Площадь круга равна: ', pi*sqr (r))else if a mod 2 = 0 then writeln ('Площадь квадрата равна: ', sqr (a));end.