Задачи

[AlexP777]

Здравствуйте,

Я новенький в программировании, но есть задание написать простейшие задачи на паскале.

Задача:
Есть протокол, в котором записаны результаты каждой из 4х четвертей баскетбольного матча. Нужно определить победителя каждого матча.

[Leshii]

Скоренько набросал.Так же нужо учесть ещё два фактора проигрыш и ничью.
Два варианта решения задачи:
1)Просто не разбивая матч на 20-ти минутки выдать результат в целом.За весь матч.

Program basketball;
Uses crt;
var team1,team2:integer;
begin
clrscr;
randomize;
team1:=random(100);
team2:=random(100);
if team1>team2 then begin
writeln('team1 win with score:',team1);
writeln('team2 lose with score:',team2);
end;
writeln;
if team1<team2 then begin
writeln('team2 win with score:',team2);
writeln('team1 lose with score:',team1);
end;
if team1=team2 then 
writeln('noone wins the day');
end.

Возможно грубовато но прошу сторого не судить
2)Разбить на четверти и в каждой генерировать по очкам,а после сложыть суму всех очков и выдать победителя.
Чуток пишу...

[AlexP777]

Leshii, спасибо, очень благодарен
за второй вариант также буду безмерно благодарен