ClubPoker-DNA

uses wincrt;

procedure tanya_hitung1;

var

x,y,h:real;

begin

write('Nilai x?');readln(x);

write('Nilai x?');readln(x);

h:=x*y;

writeln('Hasil perkalian= ',h:5:2);

end;

procedure tanya_hitung2;

var

x,y,h:real;

begin

write('Nilai x?');readln(x);

write('Nilai x?');readln(x);

h:=x+y;

writeln('Hasil penjumlahan= ',h:5:2);

end;

procedure menu;

var

j:integer;

begin

writeln('MENU HITUNG');

writeln('1.Perkalian');

writeln('2.Penjumlahan');

write('Pilih no?(1/2)');readln(j);

if j=1 then

  begin

  clrscr;

  tanya_hitung1;

  end;

if j=12 then

  begin

  clrscr;

  tanya_hitung12;

  end;

end;

begin

menu;

end.