1)
var
a, b:real;
begin
write('Катет A = ');
readln(a);
write('Катет B = ');
readln(b);
writeln('Гипотенуза = ', sqrt(sqr(a)+sqr(b)));
end.
2)
var
a, b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a=b then writeln('Сумма a и b = ',a+b)
else writeln('Произведение a и b = ',a*b);
end.
3)
var
a, b, c, D, x1, x2: real;
begin
write('Коэффицент A = ');
readln(a);
write('Коэффицент B = ');
readln(b);
write('Коэффицент C = ');
readln(c);
D := sqr(b) - (4 * a * c);
if D > 0 then begin
x1 := (-(sqrt(D)) - b) / (2 * a);
x2 := (sqrt(D) - b) / (2 * a);
writeln('x1 = ', x1);
writeln('x2 = ', x2);
end
else if D = 0 then begin
x1 := -b / 2 * a;
writeln('x = ', x1);
end;
if D < 0 then writeln('Корней нет.');
end.