Pascal 代码示例：比较两个字符串并赋值

以下是使用 Pascal 语言编写的代码，演示如何比较两个字符串并根据结果将其中一个字符串的值赋值给另一个变量。

program CheckEquality;

var
  S, E, FS: string;

begin
  writeln('Enter the value of S:');
  readln(S);
  
  writeln('Enter the value of E:');
  readln(E);
  
  if S = E then
    FS := E
  else
    FS := '';
  
  writeln('The value of FS is:', FS);
end.

这段代码首先要求用户输入两个字符串 S 和 E。然后，使用 if-else 语句比较这两个字符串。如果 S 等于 E，则将 E 的值赋给变量 FS；否则，将 FS 设置为空字符串。最后，输出 FS 的值。

这个例子展示了 Pascal 语言中基本的字符串操作和条件语句的使用方法，可以帮助你理解如何根据条件执行不同的操作。