TPW timer programming

hay friends I would invite you all to learn about the programming algorithms TPW (manufacture of calculating machines)
yah just friends. . .


program kalkulato;
uses wincrt;
var a,b,c,d,e,f:real;

begin
write('angka 1=');
write('angka 2=');
read(a);
read(b);

c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln ('angka +angka =',c:0:0);

writeln ('angka -angka =',d:0:0);

writeln ('angka *angka =',e:0:0);

writeln ('angka /angka =',f:0:0);

end.


may be useful for you all. . .
amen. . .