Просто ничего
нельзя с этим ничего поделать
Хотя переустонови ее (программу)
1. Для общения , разговора . 2 . Для получения информации ... 8. Создать его на рабочем столе , включить
Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 > d2 then writeln('Строка ', s1, ' длиннее') else writeln('Строка ', s2, ' длиннее');
end.