Вводится два числа: первое вещественного типа а второе – целого. Написать программу поиска максимума двух целых чисел с использованием функции. Вывести
результат на экран. Составить блок-схему.
Примечание. Первое число нужно преобразовать к величине целого типа.

с описание каждого действия и с составление блок-схемы

program z1;//имя программы

var a:real;b,c,d:integer;//объявление глобальных переменных

function M (x,y:integer): integer;//название функции, параметры, тип результата

begin//тело функции

if x>y then M:=x else M:=y//неполный условный оператор

end;

begin//тело программы

read (a,b);//ввод значений переменных

if frac(a) >= 0.5 then c:=trunc(a)+1 else c:=trunc(a);//математическое округление

d:= M (b,c);//вызов функции

write(d)//вывод результата

end.

Объяснение:

картинка 1 - блок-схема программы

картинка 2 - блок-схема функции

математическое округление, чтобы 2,5 было равно 3, а не 2 как при использовании функции round