ввести 2 числа и к большему прибавить 2 а к меншее разделить на 3

vara,b,c,d : real;beginwriteln('Введите первое число : ');readln(a);writeln('Введите второе число : ');eadln(b);f a < b thenbeginc := b + 2;d := a/3;end;f a > b thenbeginc := a + 2;d := b/3;end;writeln('Первое число : ', c);writeln('Второе число : ', d);end.