Question

Очень срочно!!!даю 34 баллов .Программа if 4 в паскале ABC

Answer 1

uses PT4;

begin

 Task('If4');

var a,b,c,n: integer;

read(a,b,c);

if a > 0 then n := n+1;

if b > 0 then n := n+1;

if c > 0 then n := n+1;

Write (n)

end.