Даю 40 поинтов срочно!!!Пожалуйста посчитайте пожалуйста решить. Не обязательно делать на комп'ютере, а просто напишите что нужно написать в форме программы Lazarus

В Украинском не силён. Как понял, необходимо написать программу, которая среди трёх введённых чисел находит большее. Если так, то держи. Выполнено на паскале. P.S. В задаче не написано какие числа вводятся. Я выбрал на свой вкус тип integer.

var a,b,max: integer;
begin
read(a,b);
if a>b then max:=a
else max:=b;
read(a);
if max<a then max:=a;
Writeln(max);
end.