1)Стандартные - Paint, Блокнот.
2)Офисные - Их очень много, но перечислю основные: "Microsoft Office", "Evernote", "iWork", "Microsoft Word"
3)Если честно, не понял что написано, отпиши в комментариях, и я напишу программы.
4)Развлекательные - Steam, Shazam, вообще их очень много, подумай сам.
5)Профессиональные - Visual Studio, Process Hacker 2, Cheat Engine, VMProtect, и ещё куча многих других
Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.
Var a:array[1..10] of real;
<span>i:integer; </span>
<span>begin </span>
<span>for i:=1 to 10 do begin </span>
<span>a[i]:=(2*i-1)/sin(i) </span>
<span>end; </span>
<span>a.Println </span>
<span>end.</span>