program Project1;
uses CRT;
var
n,r,k:integer;
vid:array[1..5] of real;
b:array[1..5] of string=('DanielsA','DanielsB','DanielsC','DanielsD','DanielsE');
s:array[1..5,1..3] of integer;
kav:array[1..5] of integer;
stip:array[1..5] of integer;
begin
randomize;
writeln;
for n:=1 to 5 do
begin
gotoxy(1,n*2);
writeln(b[n]);
end;
gotoxy(18,1);
delay(100);
write('Atzimes');
for r:=1 to 5 do
for k:=1 to 3 do
begin
gotoxy(k*5+10,r*2);
readln(s[r,k]);
end;
gotoxy(30,1);
delay(100);
write('Vid');
textcolor(blue);
for r:=1 to 5 do
for k:=1 to 3 do
begin
vid[r]:=vid[r]+s[r,k]/3;
gotoxy(30,r*2);
writeln(vid[r]:3:2);
delay(100);
end;
gotoxy(40,1);
delay(50);
textcolor(white);
write('Kav');
textcolor(red);
for r:=1 to 5 do
begin
kav[r]:=random(10);
gotoxy(40,r*2);
writeln(kav[r]:2);
delay(100);
end;
gotoxy(50,1);
delay(100);
textcolor(white);
write('Stip');
textcolor(yellow);
for r:=1 to 5 do
begin
if kav[r]>=8 then stip[r]:=15 else
begin
if vid[r]>=4 then stip[r]:=40 else stip[r]:=15 ;
if vid[r]>=6 then stip[r]:=70;
if vid[r]>=8 then stip[r]:=130;
end;
gotoxy(50,r*2);
delay(100);
writeln(stip[r],'EUR');
end;
textcolor(white);
readln;
end.