Линейный, Разветвляющийся и Циклический.
Var a: integer;
begin
write('Введите число: '); read(a);
if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
else writeln('Цифры не одинаковые');
end.
Var n, i: integer;
begin
write('Введите n>> ');
readln(n);
for i:=1 to n do
if n mod i = 0 then write(i, ' ');
<span>end.</span>
1) Гарнитура 2) кегель 3) полужирный 4)курсив 5) подчеркнутый 6) цвет шрифта? 7) по левому краю 8) по центру 9) по правому краю