9.
Есть программа:
var m,s:integer;
f:boolean;
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 равно m, то второе.
Но сейчас программа работает не так, исправьте это.