Даны две сферы радиуса r1 и r2 (r1>r2) . Определить насколько площадь поверхности первой сферы больше площади поверхности второй сферы. Использовать функцию нахождения площади поверхности сферы — Pascal(Паскаль)

uses crt;
procedure area(r:real; var s:real);
begin
s:=4*Pi*sqr(r);
end;
var r1,r2,s1,s2:real;
begin
clrscr
repeat
write('r1,r2: (r1>r2):');
readln(r1,r2);
until r1>r2;
area(r1,s1);
area(r1,s2);
write(s1-s2);
readln
end.