Код:
uses crt;

const
     s = 16;
var
   a,s1,d:real;

begin
     clrscr;
     a:= sqrt(s);
     d:= sqrt(a*a + a*a);
     s1:= 3.14 * sqr(d/2);

     writeln('s = ', s:2);
     writeln('-----------');
     writeln('a = ', a:2:2);
     writeln('d = ', d:2:2);
     writeln('s1 = ', s1:2:2);

     readln;
end.
Что значит "создать интерфейс"?