Question

Составте программу ,которая предлагает ввести с клавиатуры две строки s и t и выводит на экран наиболее длинную строку

Answer 1

var
s1,s2: string ;
 d1,d2 : integer;
begin
writeln ('1 stroka');
read (s1);
writeln ('2 stroka');
read (s2);
d1:=length(s1);
d2:=length(s2);
if d1>d2 then  writeln (s1)
else
writeln (s2);
end.