Даны 2 строки символов: S1 и S2. Сравнить длины строк D1 и D2. Выяснить, которая из строк длиннее, и выдать сообщение на экран: «строка S1 длиннее» или «строка S2 длиннее».НУЖЕН ПАСКАЛЬ

Вопрос школьника по предмету Информатика

Даны 2 строки символов: S1 и S2. Сравнить длины строк D1 и D2. Выяснить, которая из строк длиннее, и выдать сообщение на экран: «строка S1 длиннее» или «строка S2 длиннее».НУЖЕН ПАСКАЛЬ

Ответ учителя по предмету Информатика

uses crt;

var s1, s2: String;

d1, d2: Integer;

begin

readln(s1, s2);

d1 := length(s1);

d2 := length(s2);

if d1 > d2 then writeln(‘Строка ‘, s1, ‘ длиннее’) else writeln(‘Строка ‘, s2, ‘ длиннее’);

end.