Составьте программу на Паскале для вычисления n+5 для нечётного целого числа n и n^2 для чётного n.

Предыдущий
вопрос Следующий
вопрос

program Calculate;
var
n, result: Integer;
begin
write('Enter an integer number: ');
readln(n);

if n mod 2 <> 0 then
begin
result := n + 5;
writeln('Result: ', result);
end
else
begin
result := n * n;
writeln('Result: ', result);
end;
end.