PROGRAM srodkowyCiag;
USES Crt;
VAR t1,t2,t3:STRING;
BEGIN
 WriteLN('Wprowad« kolejno trzy ci¥gi znak¢w z kt¢rych zostanie wy˜wietlony ˜rodkowy: ');
 READLN(t1);
 READLN(t2);
 READLN(t3);
 IF ((length(t1) > length(t2)) AND (length(t1) < length(t3))) OR ((length(t1) < length(t2)) AND (length(t1) > length(t3))) THEN
  WRITE('—rodkowym ci¥gniem jest ci¥gi pierwszy!')
 ELSE
 IF ((length(t2) > length(t1)) AND (length(t2) < length(t3))) OR ((length(t2) < length(t1)) AND (length(t2) > length(t3))) THEN
  WRITE('—rodkowym ci¥gniem jest ci¥g drugi!')
 ELSE
 IF ((length(t3) > length(t1)) AND (length(t3) < length(t2))) OR ((length(t3) < length(t1)) AND (length(t3) > length(t2))) THEN
  WRITE('—rodkowmy ci¥giem jest ci¥g trzeci!');
 READKEY;
 ClrScr;
END.
PROGRAM srodkowyCiag;
USES Crt;
VAR t1,t2,t3:STRING;
BEGIN
 WriteLN('Wprowad« kolejno trzy ci¥gi znak¢w z kt¢rych zostanie wy˜wietlony ˜rodkowy: ');
 READLN(t1);
 READLN(t2);
 READLN(t3);
 IF ((length(t1) > length(t2)) AND (length(t1) < length(t3))) OR ((length(t1) < length(t2)) AND (length(t1) > length(t3))) THEN
  WRITE('—rodkowym ci¥gniem jest ci¥gi pierwszy!')
 ELSE
 IF ((length(t2) > length(t1)) AND (length(t2) < length(t3))) OR ((length(t2) < length(t1)) AND (length(t2) > length(t3))) THEN
  WRITE('—rodkowym ci¥gniem jest ci¥g drugi!')
 ELSE
 IF ((length(t3) > length(t1)) AND (length(t3) < length(t2))) OR ((length(t3) < length(t1)) AND (length(t3) > length(t2))) THEN
  WRITE('—rodkowmy ci¥giem jest ci¥g trzeci!');
 READKEY;
 ClrScr;
END.