Question

Помогите Pascal !!Срочно!! Пожалуйста!! ​

Answer 1

var n, d, nd, v, a: integer;

begin

readln(n);

d := 0;

nd := 0;

v:= 0;

while v <> n do

begin

read(a);

if a = 0 then  

nd := nd + 1  

else d := d + 1;

v := v + 1;

end;

if d < nd then

writeln('They do not understand!') // dovolnye < nedovolnye  

else if d = nd then

writeln('May be I should buy more Tverdysh')// dovolnye = nedovolnye  

else  

writeln('I am hero!'); // dovolnye > nedovolnye  

end.