вас быстрее.перенести выражение в pascal

№1

Program anton4nk;

uses crt;

var a,b,c:real;

begin

clrscr;

writeln(' Введите в последовательности A, B, C');

readln(a,b,c);

writeln(b+sqrt(sqr(b)+4*a*c)/2*a);

end.

№2

Program anton4nk;

uses crt;

var a,b,c,d:real;

begin

clrscr;

writeln('Введите в последовательности A, B, C, D');

readln(a,b,c,d);

writeln((a/c)*(b/d)-(a*b-c)/(c*d));

end.