Question

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

Answer 1

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