Program P83;
 { Eroare }
var S : packed array[1..5] of char;
begin
 S:='12345';
 writeln(S);
 S:='Sfat':
 writeln(S);
end.