Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  foodwars
Language: PASCAL
Code:
program foodwars;
var
score1,score2,score3,total,highs:Integer;
team:String;
compony:String;
stop:String;
winning_team:String;
begin
highs:=0;
repeat
WriteLn('EnterEnter compony name: ');
ReadLn(compony);
WriteLn('Enter team name: ');
ReadLn(team);
WriteLn('Enter presentation score: ');
ReadLn(score1);
WriteLn('Enter  preparation score: ');
ReadLn(score2);
WriteLn('Enter  palalability score: ');
ReadLn(score3);

total:=score1+score2+score3;
if score1=100 then
writeln('presentation 100 medal');

if score2=100 then
WriteLn('preparation 100 medal');

if score3=100 then
WriteLn('palalability 100 medal');

if total>highs then
highs:=total;
winning_team:=(team);

WriteLn('Do you what to continue yes/end: ');
Read(stop);
until stop=('end');
WriteLn(winning_team, 'you won by',highs,'points');
ReadLn();
end.          
Comments: