hasil kali dan rata-rata 2 bil desimal

program rerata_desimal;
uses wincrt;
var
i:integer;
a,b:string;
angka1,angka2:real;
rata, kali:real;
begin
write ('input angka pertama(input angka pecahan dengan koma): ');readln(a);
write ('input angka kedua(input angka pecahan dengan koma):');readln(b);
a[pos(',',a)]:='.';
b[pos(',',b)]:='.';
writeln(a); writeln(b);
val(a,angka1,i);
val(b,angka2,i);
kali:=angka1*angka2;
rata:=(angka1+angka2)/2;
writeln ('hasil perkalian = ',kali:5:2);
writeln ('hasil rata-rata =', rata:5:2);
end.