trf_byReference

program bootcamp6;
uses crt;

procedure kuadrat(angka: integer; var hasil: integer);
begin
    hasil := sqr(angka);
end;

var result: integer;
begin
    clrscr;
    write('Hasil dari 5 kuadrat adalah ');
    kuadrat(5, result);
    write(result);
    readkey;
end.