Задача 10 Урок 9

Урок 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);
    s:=1;
    if (s = 1) then
       writeln('soobchenie 1')
    else if (s = m) then
        writeln('soobchenie 2');
    readln();
end.

КОНСОЛЬ

Vvedite chislo M
120
soobchenie 1