Program p_1; var a: string[50]; b: string[50]; begin write('заполните строку а и b '); read(a,b); if length(a)> length(b) then writeln(' первая строка длиннее ') else writeln(' вторая строка длиннее '); end. у меня пишет всегда a длиннее b.в чем лажа товарищи?
write('Заполните строку А и B ');
readln(a);
readln(b);
if length(a)>length(b) then writeln('Первая строка длиннее ')
else writeln('Вторая строка длиннее ');
end.