первая задача
program a1;
var
a,b,c: integer;
x,y:real;
begin
writeln('ââåäèòå êîýôôèöèåíòû a, b, c');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln©;
x:=(sqr(a)-sqr©)/(sqr©-b);
if x>=0 then
y:=((sqr(a)+sqr(b))/c)+sqrt(sqr(a)+x)
else
y:=(sin(x)+b)/(a-b);
writeln(y);
end. вторая задача
program a2;
var
a,b:integer;
begin
writeln('ââåäèòå 2 ÷èñëà');
write('a=');
readln(a);
write('b=');
readln(b);
if a>=b then
begin
a:=2*a;
b:=2*b;
end
else
begin
a:=abs(a);
b:=abs(b);
end;
write('a=',a,' b=',b);
end.
