іть будь ласка з презіінтацією

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

решаем относительно  a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.