Pascal Function

program tes;
uses wincrt;

function pertama(var a, b : integer):integer;
begin
pertama := a*b;
end;

function kedua(var a, b : integer):integer;
begin
kedua := a+b;
end;

function ketiga(var a, b : integer):real;
begin
ketiga := a/b;
end;

function keempat(var a, b : integer):integer;
begin
keempat := a-b;
end;

var
x, y : integer;
a : char;

begin
writeln('------------------------------------------------------');
writeln(' a. perkalian');
writeln(' b. penjumlahan');
writeln(' c. pembagian');
writeln(' d. pengurangan');

writeln('------------------------------------------------------');

write(' Nilai X = ');readln(x);
write(' Nilai Y = ');readln(y);

write(' Pilih = ');readln(a);

if a='a' then

writeln(' hasilnya adalah ',pertama(x,y))
else
if a='b' then
writeln(' hasilnya adalah ',kedua(x,y))
else
if a='c' then
writeln(' hasilnya adalah ',ketiga(x,y):3:2)
else
if a='d' then
writeln(' hasilnya adalah ',keempat(x,y))
else
write(' Inputkan salah ');


end.