PROGRAM STRING MENGGUNAKAN PASCAL

program string_septi ;
uses crt ;
var
        NilaiString : string [10];
        NilaiReal : real;
        PosisiSalah : integer;
begin
        clrscr;
        NilaiString :='123.45';
        val(NilaiString,NilaiReal,PosisiSalah);
        writeln('Nilai String : ',NilaiString);
        writeln('NIlai Real : ',NilaiReal);
        writeln('Posisi Salah : ',PosisiSalah);
        readkey;
end.

outputnya :