Какой текст будет выведен на метку Label1 в результате выполнения наведенного ниже фрагмента программы:

var s:string;
i,l:integer;
begin
s := ’!P-A-S-C-A-L!’;
l:=length(s);
for i:=2 to l-1 do
if s[i]=’-’ then s[i]=’,’
else
if s[i]=’!’ then s[i]=’-’
end;
Label1.Caption := s;

а) -P,A,S,C,A,L-
б) !P A S C A L!
в) !P,A,S,C,A,L!
г) -PASCAL-

Объясните в кратце что да как, срочно!!!

Ответ:

буква в

Объяснение:

if s[i]=’-’ then s[i]=’,’ - эта строка меняет "-" на ","

if s[i]=’!’ then s[i]=’-’ - эта строка ничего не меняет, так как берётся строка со второго символа по предпоследний