Ответы и объяснения

2013-02-27T16:04:04+04:00

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