Создать программу в паскаль нахождения значения выражения с использованием функций 3*sin(sqrt(3))+0, 35x-3, 8

program archi; uses crt; var  x: real; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   write('введите x: ');   readln(x);   writeln('при х=',x,'');   writeln('3sin(sqrt(3))+0,35x-3,8 = ',3*sin(sqrt(3))+0.35*x-3.8: 0: 3); end.

var x: real; begin write('введите значение x: '); readln(x); writeln('ответ: ', 3*sin(sqrt(3))+0.35*x-3.8); end.

Zadacha_1; var a,b,c: integer;   begin    writeln  (' введите число');     readln(a);     b: =a mod 10;     a: =a div 10;     c: =a mod 10;     a: =a div 10;     if (a = b) or (a=c) or (b = c)then writeln  ('такие числа есть')     else writeln('таких чисел нет');     end. zadacha_2; var a: integer;   begin    writeln(' введите время в минутах');     readln(a);     a: =a mod 10;     if ((a > = 0) and   (a < = 3)) or ((a > 5) and   (a < = 8))   then writeln('зелёный');         if ((a > 3) and   (a < = 5)) or ((a > 8) and   (a < 0))   then writeln('жёлтый'); end.

Var   a: array[1..4,1..4]of integer;   i,j,max: integer; begin     max: =-maxint;       for i : = 1 to 4 do        for j: =1 to 4 do         begin                read(a[i,j]);                   if (i=j) and (a[i,j]> max) then max: =a[i,j];             end;           writeln('max = ',max);     end.abs pascal