a)var a,d : real;
Begin
writeln('Introduceti lungimea laturii a:');
readln(a);
d:=a*sqrt(2);
writeln('Diagonala este de:',d);
End.
b)var x,y : real;
Begin
writeln('Introduceti nr. x:');
readln(x);
y:=sqr(x)+sqr((sqr(x)*x)/2)+3;
writeln('y=',y);
End.
c)var a,b,c: integer;
Begin
writeln('Introduceti anul curent:');
readln(a);
writeln('Introduceti anul nasterii:');
readln(b);
c:=a-b;
writeln('Virsta:',c);
End.