Решение смотрите во вложении
begin
var x: integer;
var s: integer;
var Count := 0;
repeat
if not TryRead(x) then
begin
Writeln('This is not the integer number, try again');
continue
end;
s += x;
Count += 1;
until x = 0;
Println('Average =', s / (Count - 1))
end.
Тест к программе
a= -1 b=2 c=3 s=1.5 (промежуточные m1 m2 m3 сами просчитаете и проверьте)
a=4 b= - 5 c=0 s = 8
Всё хорошо бы только надо ещё и картинки кораблей прилогать