jumlah angka

var

jumlah : byte;

begin

jumlah := 200;

write ('nilai jumlah= ', jumlah);

end.

bilangan

Uses crt;

Var a,b,c : integer;

Begin

Clrscr;

Write (‘masukkan bilangan pertama: ‘);

Readln (a);

Write (masukkan bilangan kedua: ‘);

Readln (b);

C:=a*b-b;

Writeln;writeln(‘hasilnya adalah : ‘, c);

Readln;

End.