[Помогите!] Переделать программку

[~Керя~]

Pascal - Короче, нужно переделать программу так, чтобы при вводе 2х чисел выдавало Мах число (программа написана под Мах), но! Если вводить 2 одинаковых числа, то будет выходить к примеру

Цитата: Error - this numbers are same

var
a,b,max: integer;
begin
writeln ('Введите первое число');
readln (a);
writeln ('Введите второе число');
readln (b);
if a>b then max:=a else max:=b;
writeln ('Max=',max);
readln;
end.

Помогите, буду благодарен.

[readln]

if a:=b then writeln('Error - this numbers are same');

[~Керя~]

Цитата: Сообщение от readln if a:=b then writeln('Error - this numbers are same');

Только добавить это в строку где if?

[readln]

~Керя~, это будет отдельный if

я думаю что вот так(под рукой нет паскаля поэтому пробуй сам)

var
a,b,max: integer;
begin
writeln ('Введите первое число');
readln (a);
writeln ('Введите второе число');
readln (b);
if a:=b then writeln('блабла');
end;
begin
if a>b then max:=a else max:=b;
writeln ('Max=',max);
readln;
end;
end.

[VeTaL_UA]

var
a,b: integer;
max: string;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
 if a>b then write('max = ',a) else if a<b then write('max = ',b) else  write(a,' = ',b);
end.

Добавлено через 1 минуту

Цитата: Сообщение от readln if a:=b then writeln('блабла');

а за подобное казнить надо!

[~Керя~]

Цитата: Сообщение от VeTaL_UA var a,b: integer; max: string; begin write('a = '); readln(a); write('b = '); readln(b); if a>b then write('max = ',a) else if a<b then write('max = ',b) else write(a,' = ',b); end. Добавлено через 1 минуту а за подобное казнить надо!

Thx щас попробую

[readln]

Цитата: а за подобное казнить надо!

что тебе не понравилось?

[VeTaL_UA]

Цитата: Сообщение от readln что тебе не понравилось?

то, что вы, уважаемый, даёте советы, сами толком языка не зная.

[readln]

Цитата: Сообщение от VeTaL_UA то, что вы, уважаемый, даёте советы, сами толком языка не зная.

будь добр укажи мою ошибку(не какого сарказма)

[VeTaL_UA]

Цитата: Сообщение от readln будь добр укажи мою ошибку(не какого сарказма)

Цитата: Сообщение от readln if a:=b then writeln('блабла');

ты используешь оператор присвоения значения вместо операторы проверки равенства.

[readln]

Цитата: Сообщение от VeTaL_UA ты используешь оператор присвоения значения вместо операторы проверки равенства.

спасибо, двоеточие не надо

[~Керя~]

Цитата: Сообщение от VeTaL_UA ты используешь оператор присвоения значения вместо операторы проверки равенства.

Спасибо, то что последнее ты добавил там, получилось...Благодарю!