Question

Помогите по программированию.Составьте программу по этой блок схеме.Очень срочно.Заранее спасибо.

Answer 1

program if1;
var a: integer;
begin read(a)
; if a > 0 then Inc(a);
   write(a);
end
может быть это ?.