program CalculateM;varN, M: integer;beginwriteln('Введите значение N: ');readln(N);
if N <= 15 thenM := round(2 * sqrt(N))elseM := N - 3;
writeln('Значение M: ', M);end.
program CalculateM;
var
N, M: integer;
begin
writeln('Введите значение N: ');
readln(N);
if N <= 15 then
M := round(2 * sqrt(N))
else
M := N - 3;
writeln('Значение M: ', M);
end.