Составьте программу вычисления выражения: max(x+y+z, xyz)+3 если x,y,z введены с клавиатуры. по паскалю.

отрицательное,то вывести на экран значение суммы чисел А,В,С,иначе-значение произведения.

var f,g: Text;
s,s1: string;
p: integer;
begin
Assign(f,'names.txt');
assign(g,'out.txt');
Reset(f);
rewrite(g);
while not Eof(f) do begin
Readln(f,s);
while s<>'' do begin
p := pos(',',s);
if p>0 then begin s1 := copy(S,1,p-1); s := copy(S,p+1,length(S)) end
else begin s1 := s; s := '' end;
p := pos(' ',s1);
if p>0 then write(g,copy(S1,p+1,Length(S1)),' ',copy(S1,1,p-1));
if (S<>'')and(S[1]=' ') then Delete(S,1,1);
if S<>'' then write(g,', ');
end;
writeln(g);
end;
Close(f);
Close(g);
end.

Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"

2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N

------------------------ОПЕРАТОР WHILE

результата введите ограничение на количество знаков после запятой. Примечание. В Паскале используются стандартные функции: SIN(X) - синус Х (аргумент задается в радианах); COS(X) - косинус Х (аргумент задается в радианах); Для подсчета угла в радианах используйте формулу: угол в радианах = (угол в градусах)*/180. Результат представьте в виде: Программа вычисления значений тригонометрических функций x° Sin(x) Cos(x) Tg(x) 1 2 3 .. 45

2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.