Составить программу 1)вычетание двух натуральных чисел 2)деление двух натуральныз чисел 3)среднее арифметическое x1 x2

1)
program ex1;Var a,b:real;begin  read(a,b);  write(a-b);end.
2)
program ex1;Var a,b:real;begin  read(a,b);  write(a/b);end.
3)
program ex1;Var a,b:real;begin  read(a,b);  write((a+b)/2);end.