1)Даны две строки. Вывести на экран строку большей длины.
2)Дана строка символов. Определить, есть ли в ней хотя бы одна буква «с».

нужно написать программы в паскаль, с использованием if then else

решите пожалуйста,СРОЧНО НАДО

спсибо большое

помоги ще с 2 заданиями

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016begin  var s1:=ReadlnString('1>');  var s2:=ReadlnString('2>');  if s1.Length>s2.Length then Writeln(s1) else Writeln(s2)end.// PascalABC.NET 3.1, сборка 1230 от 27.04.2016begin  var s:=ReadlnString('>');  // Ниже в Pos указана русская "с" !!!  if Pos('с',s)>0 then Writeln('Буква с есть')  else Writeln('Буквы с нет')end.