Дана строка символов. Определить число символов в строке. Если это число меньше 10, то...

Question

Дана строка символов. Определить число символов в строке. Если это число меньше 10, то добавить к строке символы 'КЛМНОПРСТ' .нужен паскаль

Answer 1

Program n1;
var s: string;
begin
s:='stroka';
if length(s)<10 then s:=s+'КЛМНОПРСТ';<br>write(s);
end.