Задание 12 Урок 9

Задание 12 Урок 9

Есть программа:

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

var m,s: integer;
  begin
    writeln ('vvedite chislo M');
    readln (m);
    writeln ('vvedite chislo s');
    readln (s);

    if (s = 1) then
    writeln ('soobcheni 1')
   else
      if (s=m)then
      writeln ('soobchenie 2');
    readln;     readln;
    end.  

Консоль:

vvedite chislo M
6
vvedite chislo s
6
soobchenie 2