000100000
000110000
000101000
000100100
000100100
000101000
111111111
010000010
001111100
Нужно понять причину ошибки. Исправить её. Провести тестирование. Убедиться что проблема решена.
Командная строка. это строка заведует управлениями всех программ
Program ex;
var a,b,c,s,k:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите первое второе');
readln(b);
writeln('Введите первое третье');
readln(c);
if a>0 then
begin k:=k+1;
s:=a;
end;
if b>0 then
begin
s:=s+b;
k:=k+1;
end;
if c>0 then
begin
k:=k+1;
s:=s+c
end;
writeln('Сумма=',s);
writeln('Количество положительных чисел=',k)
end.