Решите задачи с низу с решением

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i:integer;

begin 

clrscr;

textcolor(4);

write(' Ka}I{gbIu ');

textcolor(12);

write(' oxoTHuk ');

textcolor(14);

write(' }I{eJIaeT ');

textcolor(2);

write(' 3HaTb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9T ');

textcolor(5);

write(' fa3aHbI ');

readln;

end.

 

ЗЫ: слова я пытался писать английскими буквами, я не знаю просто: поддерживает твой паскаль русские буквы или нет..

С ЦИКЛАМИ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифм. прогресии:');
Readln(n);
For i:=1 to n do a:=a+d;
Writeln(n, ' член арифметической прогресии равен : ', a);
End.
БЕЗ ЦИКЛОВ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифметической прогресии: ');
Readln(n);
Writeln(' ответ: ', a+d*(n-1));
End.