Agoritma: Penambahan

program Penambahan;
uses wincrt;
var x,y: integer;
a,b,c: integer;
procedure
hitung_jumlah (x,y:integer; var a,b:integer);
begin
a:=x+3;
b:=y+3;
end;
begin
writeln('*********TAMBAH NILAI**********');
write('Masukan Nilai Y:');readln(Y);
writeln('Nilai X dan Y Setelah ditambah 3: '); Readln; hitung_jumlah(x,y,a,b);
writeln('Nilai X :',a);
writeln('Nilai y :',b);
c:=a+b;
writeln('Hasil',a,'+',b,'=',c);
writeln('********************');
End.