Решение смотрите во вложении
Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12
Program programma;
Uses crt;
var n,s,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
write('S=');
for i:=1 to n-1 do
begin
s:=s+sqr(i);
write(sqr(i),'+');
end;
s:=s+sqr(n);
write(sqr(n),'=', s);
End.
Математической модели....................