Какую решает данная программа . что нужно изменить в программе , чтобы она решила нахождения утроенного частного двух чисел . program pr3; var a,b , c: integer ; begin readln(a,b); c: =sqr (a) + sqr (b); writeln('c=' ,c); end.