Описать на Паскале строку с максимальной длиной 80 символов и записать стандартную функцию, находящую ее текущую длину.

Предыдущий
вопрос Следующий
вопрос

program MaxLengthString;

var
str: String[80];

function Length(str: String): Integer;
begin
Length := Length(str);
end;

begin
str := 'This is a string with maximum length of 80 characters';
writeln('Current length of string: ', Length(str));
end.