Var n,a,b,c,d,i:integer;
begin
readln(n);
a:=1; b:=1; c:=1;
write(a:2,b:2,c:2);
for i:=4 to n do
begin
d:=a+b+c;
a:=b;
b:=c;
c:=d;
write(' ',d);
end;
end.
Пример:
15
<span> 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209</span>
Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.