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

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

Есть программа:
▶
?
1
2
3
4
5
6
7
8
9
10
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, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

program u9z12;
var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  writeln('Vvedite chislo S');
  readln(s);
  if (s = 1) then
    writeln('soobchenie 1') else
  if (s <> 1) and (s = m) then
    writeln('soobchenie 2');
  readln();
end.