===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 0).Sum.Print
end.
3.........................................................
Var
a, b:real;
begin
readln(a, b);
writeln(a * b * 0.5);
end.
Что именно нужно распознавать на картинке? Текст? Нет какой-то обычной команды. Это нужно несколько лет разработки, куча потраченных нервов и денег, чтобы в итоге сделать распознавание чего-либо на картинке.