Ответы и объяснения

2012-12-24T13:31:58+04:00

Program Pr1;
uses crt;
var stroka,stroka1:string;
Begin
clrscr;
writeln('Vvedite 1 predlojenie');
readln(stroka);
writeln('Vvedite 2 predlojenie');
readln(stroka1);
if length(stroka)>length(stroka1) then writeln('2 Predlogenie koroche')
else writeln('1 Predlogenie koroche');
end.