Program Zadacha;Var a, b: integer;Begin Write('введите 2 числа:'); ReadLn(a, b); WriteLn('частное квадратов = ', (a*a)/(b*b)); ReadLn;End.
Program Zadacha;
Var
a, b: integer;
Begin
Write('введите 2 числа:');
ReadLn(a, b);
WriteLn('частное квадратов = ', (a*a)/(b*b));
ReadLn;
End.