var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.
<em>VAR</em>
<em> s: String;</em>
<em>BEGIN</em>
<em> s := Chr(66) + Chr(69) + Chr(71) + Chr(73) + Chr(78);</em>
<em> Write(s);</em>
<em>END.</em>
В прилагаемом файле - пример вывода рекуррентного соотношения (как раз для синуса).