Скласти программу обчислення арифметичного виразу. y=cosx+√x

П0 cos ИП0 КвКор + С/П

Ввод: x С/П.

Вывод: y.

uses crt;
const max=100;
var a:array[1..max] of integer;
n,i,imn,imx:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n: ');
readln(n);
until n in [1..max];
writeln('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i],' ');
end;
imn:=1;
imx:=1;
for i:=1 to n do
begin
if a[i]<a[imn] then imn:=i;
if a[i]>a[imx] then imx:=i;
end;
writeln('Минимальный элемент: ',a[imn],' Его индекс: ',imn);
writeln('Максимальный элемент: ',a[imx],' Его индекс: ',imx);
x:=a[imn];
a[imn]:=a[imx];a[imx]:=x;
writeln('Обмне максимального и минимального: ');
for i:=1 to n do
write(a[i],' ');
end.

Program treug;

var a,b,c,max,min,srd,d:real;

begin

writeln('Введите стороны треугольника');

readln(a,b,c);

If (a+b>c) or (b+c>a) or (a+c>b) then

begin

if (a=b) or (b=c) or (a=c) then write ('Треугольник равнобедренный');

if (a=b) and (b=c) then write ('Треугольник равносторонний');

end;

begin  

Sort(a,b,c,max,min,srd);  

d:=min*min+srd*srd;  

e:=max*max;  

if d>e then writeln('Это остроугольный треугольник!')  

else if d<e then writeln('Это тупоугольный треугольник!')  

else if d=e then writeln('Это прямоугольный треугольник!');  

end;

else writeln ('Такого треугольника не существует');

end.