Ответ:
1) Трогать компьютер без просу
2)Рисовать на доске класса
3)Не включать принтер
4)Брать компьютер учителя
5)Менять картинки на Аватара
6)Выключать компьютер из розетки т.к компьютер не успеет включиться полностью
var s:string;
i:byte;
begin
writeln('Введите слово:');
readln(s);
writeln;
writeln('Их номера в алфавите:');
for i:=1 to length(s) do
case s[i] of
'А'..'Я' : write(ord(s[i])-1038+' ');
'а'..'я': write(ord(s[i])-1070+' ');
end;
readln
end.
Begin
var ar:=arrrandom(15,0,50);
write('Массив: ');
ar.Println;
writeln('Среднее арифметическое элементов кратных 5: ',ar.Where(x->x mod 5=0).Average);
writeln('Количество чисел больших 11: ',ar.Where(x->x>11).Count);
ar[5]:=ar.Sum;
write('Новый массив: ');
ar.Print;
end.
4561,81,53,1,731,91это то что надо