Подскажите что не так
from sys import stdin

d = {}
text = []
for line in stdin:
text.append(line.rstrip('\n'))
for i in text:
name, typ = i.split(': ')
if typ not in d.keys():
mn = set()
mn.add(name)
d[typ] = mn
else:
mn = d[typ]
mn.add(name)
d[typ] = mn
for i in d:
print(i, '- ', end='')
line = list(d[i])
for j in range(len(d[i]) - 1):
print(line[j], end=', ')
print(line[-1])

1 задача.
var a, b, c: integer;
begin
  write('Введите через пробел три числа: ');
  readln(a, b, c);
  if (a > b) then
    if (b > c) then
      write('Сумма двух наибольших чисел: ', a + b)
    else
      write('Сумма двух наибольших чисел: ', a + c)
  else
    if (c > a) then 
      write('Сумма двух наибольших чисел: ', c + b)
    else
      write('Сумма двух наибольших чисел: ', b + a)
end.

2 задача.
var x, f: real;
begin
  write('Введите значение x: ');
  readln(x);
  if (x > 0) then
    f := (2 - x) / (x * x)
  else
    f := 6 - (x * x * x);
  writeln('Значение функции при данном x: ', f)
end.

3 задача.
var a, b: integer;
  write('Введите через пробел два числа: ');
  readln(a, b);
  writeln('Сумма чисел: ', a + b);
  writeln('Разность чисел: ', a - b);
  writeln('Произведение чисел: ', a * b)
end.

1. ромб, только стрелка вниз если условие сохраняется, стрелка в права, если условие нарушено, и слева приход при следующем цикле. (или наоборот) см рисунок

2. while i <= n do begin
        write ('(*) ');
        i := i + 1
    end;

3. потому что необходимо перебрать всезначения от 1 до N

4. постановка задачи;математическая формализация; построение алгоритма; составление программы на языке программирования; отлад­ка и тестирование программы; проведение расчетов и анализ полученных результатов.

5. описательная информационная модель записывается с какого-либо формального языка

6. отладка это испытание с исправлением ошибок, тест это окончательный прогон с конкретным значением данных для которых известен результат.