Выясните, к какому классу — тестовым или графическим редакторам, драйверам, системам программирования, программам профессионального назначения и т. д. относятся
следующие программы
Norton Commander, WinRar, keyboard dry, 1С Предприятие MS Word FoxPro, 3D Studio,
C+, Фортран, Linux, Блокнот, mouse drv, MS Excel, Adobe Photoshop, Macromedia Flash,
Компас зD, Pascal, oIP, Cu, Basic, AVP Касперского, Windows7, Paint, Outlook Express,
HTML, Dr Web, MS Access, Nero Premium, Консультант Плюс", ѕоund drv.
Распределите их по группам в ячейки ​

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.

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

вот она

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.

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

1)  2, 5, 4, 7, 8, 9,  16,  11, 32

2           5

4           7

8           9

16         11

32

*2           +2

чётное порядковое число умножается на 2

нечётное порядковое число увеличивается на 2

2) 3, 8, 15,  24,  35, 48,  63, 80

3

3+5=8

8+7=15

15+9=24

24+11=35

35+13=48

48+15=63

63+17=80

(к предыдущему ответу прибавляется по порядку идущее нечётное число)