Составить программу нахождения наибольшей из 2 площадей: квадрата…

Program PR1; uses crt; var skv,skr: real; a,r: integer; Beginclrscr; writeln ('Введите сторону квадрата'); readln (a); writeln ('Введите радиус круга'); readln (r); skv: =sqr (a); skr: =pi*sqr (r); if skv>skr then writeln ('Площадь квадрата >') else writeln ('Площадь круга>'); end.