Уважаемые ТОВАРИЩИ! ПОМОГИТЕ ПОЖАЛУЙСТА!

[Роман91]

1)

Тема: «Разработка программ разветвляющейся алгоритмической структуры на языке Паскаль.»

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

http://s41.radikal.ru/i094/0905/ec/a7055ec0028a.jpg


2)

Тема: «Использование операторов цикла в языке Паскаль.»


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


http://s41.radikal.ru/i094/0905/24/d21f2fde9ec2.jpg


ПОМОГИТЕ ПОЖАЛУЙСТА!

[DM_bite]

1

program Xz;
var a,b: integer;
    y:real;
 begin
 ReadLn(a,b);
 if (a mod b = 0) or (a=2) then y:= sqr(a)+b
 else y:= (1+b)/(2-a);
 WriteLn(y);
 ReadLn;
 end.

[Sergeevich]

2.

program ijN;
var
i,j,N: integer;
S:real;
begin
S:=0;
ReadLn(N);
for i:=1 to N do
for j:=1 to i do S:=S+sin(0.1*i+0.2*j);
writeln(s);
end.

Паскаль немного припоминаю, вроде бы это будет так.

[Роман91]

ОГРОМНОЕ СПАСИБО!