13 lines
143 B
ObjectPascal
13 lines
143 B
ObjectPascal
program TestaParidade;
|
|
var
|
|
n : integer;
|
|
begin
|
|
n := 2 * 13 + 5;
|
|
if n = (n div 2)*2 then
|
|
write('p')
|
|
;
|
|
else
|
|
write('i')
|
|
;
|
|
end.
|