Паскаль ABC. Составьте программу,которая запрашивает ввод трех формул кислот и проверяет,есть ли среди них формула серной кислоты. Использовать можно только if...tnen...else

Var H2SO4:string; B:integer; Begin B:=0; WriteLn('Введите три формулы кислот'); ReadLn(H2SO4); if H2SO4 = 'H2SO4' then B:=1; ReadLn(H2SO4); if H2SO4 = 'H2SO4' then B:=2; ReadLn(H2SO4); if H2SO4 = 'H2SO4' then B:=3; if B = 0 then WriteLn('Формулы серной кислоты среди них нет') else WriteLn('Формула серной кислоты: №',B) End.