Все лабораторные работы по паскалю / 8 лаб. Модульное программирование / 7

uses crt;
var c,k: integer;
    num: real;
    s: string;
begin
  write('введите число - ');
  readln(s);
  k:=pos(',',s);
  if k>0 then s[k]:='.';
    val(s,num,c);
  writeln(num);

end.