1 Гибкий магнитный диск. 2 Устройство для вывода информации на бумажный носитель. 3 Запоминающее устройство. 4 Жесткий диск. 5 Устройство ввода информации. 6 Устройство ввода информации с бумажного носителя. 7 Сверхоперативная память. По вертикали: 3 Устройство обработки информации. 5 устройство вывода информации. 8 Вычислительная система. 7 Клавишное устройство ввода информации. 9 система проводов.

Код с комментариями:

data = [] # создать строку

print("Введите температуру:")

data.append(int(input("Понедельник>> "))) # дополнить строку

data.append(int(input("Вторник>> "))) # то же самое

data.append(int(input("Среда>> "))) # то же самое

data.append(int(input("Четверг>> "))) # то же самое

data.append(int(input("Пятница>> "))) # то же самое

data.append(int(input("Суббота>> "))) # то же самое

data.append(int(input("Воскресенье>> "))) # то же самое

print("\n\nСредняя температура за неделю:" + str(round(sum(data) / 7, 2))) # напечатать среднее строки

Вот посмотри, может сем
uses crt;
var s: string;    
function Kslov (str: string; c: char): integer;
var i,k: integer;
begin str:=str+' ';  
k:=0;
for i:=1 to length(str)-1 do     if (str[i+1] in [' ','.',',','-',':',';','!','?'])         and (str[i]=c) then inc(k);
Kslov:=k;
end;
  procedure Del(var str: string);
var i,j: integer;
begin str:=str+' '; i:=length(str)+1;
repeat dec(i);
until(str[i+1]=' ') and (str[i]='о');
j:=i;
repeat dec(i);
until(str[i+1]=' ') or (i=1); delete(str,i,j-i);
end;  
begin write('s='); readln(s); if Kslov (s,'о')>Kslov (s,'а')    then Del(s); write('s=',s);
End.