размерът на ред pascal
Program StringLengthFunction;
Var
sampleString:String;
begin
Write('Enter a string: ');
readln(sampleString);
//Length function takes a string as input ansd returns its number of chracters as an integer
Writeln('Length of string entered is: ',Length(sampleString));
End.