Помогите пожалуйста написать премитивную программу на языке PASKALABC используя раздел функции

const
a1=2;
a2=2;
a3=5;
a4=7;
function a(a:real, b:real) real
begin
Result:=sqrt(sqr(a)+sqr(b));
end;
begin
writeln(a(a1,a2)+a(a2,a3)+a(a3,a4)+a(a4,a1));
end.
вот так как-то, но могут быть опечатки так как набирал не в pascal, а прямо в ответе