program CompareStrings;
varstr1, str2: string;
beginwriteln('Enter first string: ');readln(str1);
writeln('Enter second string: ');readln(str2);
if str1 = str2 thenwriteln('The strings are equal.')elsewriteln('The strings are not equal.');end.
program CompareStrings;
var
str1, str2: string;
begin
writeln('Enter first string: ');
readln(str1);
writeln('Enter second string: ');
readln(str2);
if str1 = str2 then
writeln('The strings are equal.')
else
writeln('The strings are not equal.');
end.