Unit Kullanımı

unit Unit1;

interface
procedure topla;

var
toplam,x,y:integer;


implementation

procedure topla;
begin
writeln('İki sayi giriniz.');
readln(x,y);
writeln('Sonuç:',toplam);
readln;
end;

end.