Н@дюш@
Н@дюш@

Ошибка в программе PASCAL

Код решения задачи, проверьте на синтаксис и грамотность пожалуйста.

Есть ли ошибки?? ?

==============================================

function Max(A, B : Longint) : Longint;

begin

if A > B then

Max := A

else

Max := B;

end;

function Find(N : Longint) : Longint;

var

Find := MaxN;

end;

const

N : Longint = 19209;

begin

WriteLn('Input = ', N);

WriteLn('Output = ', Find(N));

end.

==============================================

Светлана Морозова
Светлана Морозова

Ну! Ну!
А между 10 и 21 строками код где?

http://otvet.mail.ru/question/171187759

Я его ведь не показал.

Это, так сказать, интеллектуальная собственность.

Я согласен её продать!

Eldar
Eldar

Спасибо Jurii, не глянул я сразу историю вопросов его, подумал уже, что он сам что-то писал и теперь ищет проблему.
Это наглость уже, надо бить морду. Ненавижу вопросы "сделайте за меня". Надо привязать от каждого учебного заведения по паре человек на мониторинг ответов и отчислять ленивых студентов нахрен.

Ольга Каляева-Веселова
Ольга Каляева-Веселова

function Find непонятно что делает. Вернее, ничего не делает

Ал
Александр

Юрий ты молодца)))

Похожие вопросы
Abc Pascal помогите с элементарной программой! Выскакивает ошибка!
Программа Pascal ошибка оператор and.
pascal где ошибка !!!
Pascal не работает программа ошибка: Ожидалось ;
Небольшая ошибка в Pascal
Pascal ABC.NET ошибка
Программа на PASCAL....
Помогите с простой программой в Pascal выдаёт ошибку
Ошибка в программе (Turbo pascal)
Где ошибка ???ABC PASCAL