program ABCpascal; var a, b: integer; result: real;
begin writeln('Enter the first number: '); readln(a); writeln('Enter the second number: '); readln(b);
if (a < 0) and (b < 0) then begin result := sqrt(abs(a) / abs(b)); writeln('Square root of the division: ', result:0:2); end else begin a := a * 3; b := b + 7; writeln('First number after increasing by 3 times: ', a); writeln('Second number after increasing by 7: ', b); end;
program ABCpascal;
var
a, b: integer;
result: real;
begin
writeln('Enter the first number: ');
readln(a);
writeln('Enter the second number: ');
readln(b);
if (a < 0) and (b < 0) then
begin
result := sqrt(abs(a) / abs(b));
writeln('Square root of the division: ', result:0:2);
end
else
begin
a := a * 3;
b := b + 7;
writeln('First number after increasing by 3 times: ', a);
writeln('Second number after increasing by 7: ', b);
end;
end.