Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  tevon code
Language: PASCAL
Code:
var 
counter: integer;
candidate: array[1..10] of string;
votescast: array[1..10] of integer;
votesreceived: array[1..10] of integer;
x: integer;
Begin
Writeln('Tevons Code, Electoral Office of Jamaica');
counter:=0;
for x:=0 to 10 do
begin
writeln('Enter the name of the candidate');
readln(candidate[x]);
writeln('Enter the number of votes received by the candidate');
readln(votesreceived[x]);
writeln('Enter the number of votes casted in the candidates constituency');
readln(votescast[x]);
if votesreceived[x] >= votesreceived[x] * 0.2
     then 
               begin
               writeln(candidate[x]);
               readln(candidate[x]);
               writeln('Refund Due');
               readln;
               counter:= counter + 1;
               end 
    else 
              begin 
              writeln(candidate[x]);
              readln(candidate[x]);
              writeln('No Refund');
              readln;
              end
end
end.
Comments: