10  ORG &HD000
20  LD DE,&H0504
30  LD HL,0
40  LD A,D
50  OR A
60  RET Z
70  LD B,D
80  LD D,H
90  LOOP: ADD HL,DE
100 DJNZ LOOP
110 RET

10 SCREEN 0 : WIDTH 40
20 INPUT"Qual o seu nome";N$
30 INPUT"Qual a sua idade";I
40 PRINT N$ + " possui" + 
STR$(I) + " anos."
50 END

#include <stdio.h>

double produto(double a, double b)
{
  return a*b;
}

int main(void)
{
  printf("%02.f\n",produto(15, 2));
  return 1;
}

 . create tabela;
 . use tabela;
 . display all;
 00001  Parafuso   0345  0.88
 00002  Porca      0234  0.55
 .

function calcula(a, b : real):real;
begin
  calcula := a+b;
end;

begin
  writeln(calcula(3,2));
end.