паскаль строки

Ответ от Denis163[эксперт]
вот мой вариант программы var a:real; p,pa,b:string; n,c,z,i,x:integer; label m1; begin m1:writeln('введите длинную десятичную дробь '); readln(p); n:=length(p); //вся длина i:=1; pa:=nil; //обнуляем строку pa и b b:=nil; repeat begin pa:=pa+b; b:=p; i:=i+1; end; until b='.'; z:=length(pa); //длина целой части c:=n-z-1; //длина дробной части if (z<10) or (z>20) then begin writeln('Число не верно! повторите попытку'); goto m1; end; if (c<10) or (c>20)then begin writeln('Число не верно! повторите попытку'); goto m1; end; writeln('число подходит, да ты эрудит=)'); end.