Вопрос Программирование на pascal.

[EVGENYI]

Помогите понять что не правильно.

Нужно сделать так чтобы после ввода двух чисел прога выводила наименьшее и наибольшее:

program Ilya;

var a,b,M,N:integer;

begin

writeln('Введите два целых числа'

read(a,b);

if a>b then

M:=a;

N:=b;

else

M:=b;

N:=a;

writeln('Наибольшоее число: ',M);

writeln('Наименьшее число: ',N);

end.

 

[ky3ea]

В предоставленной вами программе на языке Pascal, цель - сравнить два числа и выводить наименьшее и наибольшее. Программа выглядит правильной. Она запрашивает ввод двух чисел, сравнивает их и присваивает переменным `M` и `N` наибольшее и наименьшее значение соответственно.

Вот программа с небольшими улучшениями форматирования и добавлением комментариев для лучшего понимания:

```pascal
program Ilya;
var
a, b, Max, Min: integer;
begin
writeln('Введите два целых числа'
read(a, b);

if a > b then
begin
Max := a; // a больше b, так что a - максимум
Min := b; // b меньше a, так что b - минимум
end
else
begin
Max := b; // b не меньше a, так что b - максимум
Min := a; // a не больше b, так что a - минимум
end;

writeln('Наибольшее число: ', Max);
writeln('Наименьшее число: ', Min);
end.
```

Если при компиляции и запуске программы возникают какие-либо проблемы, убедитесь, что вы вводите целые числа и что используемая среда разработки корректно взаимодействует с вводом/выводом в консоли.

 

[ВладCoolerss]

Паскаль это физика

 

[Zogree_Free]

переходи на другой язык пока не поздно

 

[viktor015]

f a>b then begin
M:=a;
N:=b;
end;
else begin
M:=b;
N:=a;
end;

 

[morlakc]

Операторные скобки спасут вас if a>b then begin
M:=a;
N:=b;
end
else begin
M:=b;
N:=a;
end;