Помогите составить программу в Паскале

[denisova]

Помогите составить программу в Паскале

Оператор выбора. Для числа от 0 до 33 напишите фразу: «Я просмотрел N кинофильмов», согласовав окончание слова «кинофильм» с числом N.
Разветвляющиеся вычислительные процессы.
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

 

[Vladimir_S]

Для числа от 0 до 33 напишите фразу: «Я просмотрел N кинофильмов», согласовав окончание слова «кинофильм» с числом N.

Да... задача века!

Var
 N:Byte;
Begin
 Write('N= ');
 Readln(N);
 Write('Я посмотрел ',N,' кинофильм');
 If ((N mod 10)<>1) or (N=11) then
  begin
   If (((N mod 10)>0) and ((N mod 10)<5)) and
     ((N<5) or (N>20)) then writeln('а') else writeln('ов');
  end;
 Readln
End.

 

[Vladimir_S]

Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

А это уже - задача тысячелетия!

Var
 x,y:Real;
Begin
 Repeat
  Write('x= ');
  Readln(x);
  If (x<-10) or (x>8) then Writeln('Out of range!!!');
 Until (x>=-10) and (x<=8);
 If x<-6 then y:=Sqrt(4-Sqr(x+8))-2 else
 If x<2  then y:=x/2+1 else
 If x<6  then y:=0 else
 y:=Sqr(x-6);
 Writeln('y= ',y:5:3);
 Readln
End.

 

[denisova]

Спасибочки!!!