Допустимые значения для величины «название месяца года» – 1) среда
2) автомобиль
3) год дракона
4) май

3) год дракона

4) май

Это легко среда год дракона

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);