Паскаль!!!

[JUDAS]

Задача N1
выше по тексту
Задача N2
http://www.programmersforum.ru/showthread.php?t=167348
задача тоже 2

[Анастасия12]

и 2 задачу про года?
пожалуйста.....

[Анастасия12]

Задача N2
http://www.programmersforum.ru/showthread.php?t=167348
это что такое JUDAS??

[Диман56]

Да я и сам 10 класс)) Только самостоятельно выучил С, Паксаль, асм для АВР))

[JUDAS]

Настён, задача решена, вам только выудить код.
Вижу что очень сложно

program Natsy12; 
function CheckYear(Y:integer):string;
var v : byte;
begin
  v:=0;
  if Y mod 10 = 1 then v:=1 else
  if Y mod 10 in [2..4] then v:=2;
  if Y div 10 = 1 then v:=0;

  case v of
   0: CheckYear:='let';
   1: CheckYear:='god';
   2: CheckYear:='goda';
  end;
end;

var K : integer;
     r  : string;
begin
 // 2. Для натурального числа K <100 вывести фразу "K лет".

  writeln('enter year ');read(K);
  if K in [1..150] then
  begin
   r:=CheckYear(K);
   writeln(K,' ',r);
  end else
  writeln('error input');]
  readln;
end.

[Анастасия12]

2 задачу напишите пожалуйста?

[Анастасия12]

блин 2 задача JUDAS вообще слложная по научному решена как то, учитель не поверит что её я решила.
Ты можешь написать как нибудь попроще её?
плииз*)

[Анастасия12]

просто там на уроке мне надо её вводит долго это получится!((
он поймёт что не я решала((

[Анастасия12]

Тогда уж эту помогите пожаалуйста кроме про года которая((
Ввести номер месяца и вывести название времени года.
Пример:
введите номер месяца
4
весна

[Анастасия12]

людиииии, добрые помогите нууууу?