РЕШИТЕ как на примере фото С ДАНО:
Сколько CD объёмом 700 Мбайт потребуется для размещения информации, полностью занимающей жёсткий диск ёмкостью 140 Гбайт?

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

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))) # напечатать среднее строки

Var a:char;
begin
writeln('Введите букву');
readln(a);
case a of
'q': writeln('w');
'w': writeln('e');
'e': writeln('r');
'r': writeln('t');
't': writeln('y');
'y': writeln('u');
'u': writeln('i');
'i': writeln('o');
'o': writeln('p');
'p': writeln('a');
'a': writeln('s');
's': writeln('d');
'd': writeln('f');
'f': writeln('g');
'g': writeln('h');
'h': writeln('j');
'j': writeln('k');
'k': writeln('l');
'l': writeln('z');
'z': writeln('x');
'x': writeln('c');
'c': writeln('v');
'v': writeln('b');
'b': writeln('n');
'n': writeln('m');
'm': writeln('q');
end;
end.