Вычислить и вывести среднее арифметическое двух вводимых чисел.- Pascal(Паскаль)

uses crt;
var
 a, b: integer;
 s: real;
begin clrscr;
   wtite('a=');
   read(a);
   write('b=');
   read(b);
   s:=(a+b)/2;
   writeln('s=', s:4:3);
   readkey;
end.