uses crt; var x,y,z:longint; function s(x,y,z:longint):longint; begin s:=x*x+y*y+z*z; end; begin clrscr; write('x,y,z= ');readln(x,y,z); write('s= ',s(x,y,z)); readln end.
Thủ tục:
uses crt; var x,y,z:longint; begin clrscr; write('x,y,z= ');readln(x,y,z); write('s= ',x*x+y*y+z*z); readln end.
