Функция integer. Var a, b: integer;. Function nod (x,y):integer. A+B это integer