program Project1;
uses CRT;
var
a,b,c:integer;
vid:array[1..5] of real;
d:array[1..5] of string=('Gustavs','Ernests','Maksims','Oskars','Valters');
atz:array[1..5,1..3] of integer;
stp:array[1..5] of integer;
kav:array[1..5] of integer;
begin
randomize;

for a:=1 to 5 do
begin
gotoxy(1,a*2+1);
writeln(d[a]);
end;
gotoxy(13,1);
write('Atzimes(Ievadi)');
for b:=1 to 5 do
for c:=1 to 3 do
begin
gotoxy(c*5+10,b*2+1);
readln(atz[b,c]);
end;
gotoxy(30,1);
write('Vid');
textcolor(blue);
for b:=1 to 5 do
for c:=1 to 3 do
begin
vid[b]:=vid[b]+atz[b,c]/3;
gotoxy(30,b*2+1);
writeln(vid[b]:3:2);
end;
gotoxy(40,1);
textcolor(white);
write('Kav');
textcolor(red);
for b:=1 to 5 do
begin
kav[b]:=random(10);
gotoxy(40,b*2+1);
writeln(kav[b]:2);
end;
gotoxy(50,1);
textcolor(white);
write('Stip');
textcolor(green);
for b:=1 to 5 do
begin
if kav[b]>=8 then stp[b]:=15 else
begin
if vid[b]>=4 then stp[b]:=40 else stp[b]:=15 ;
if vid[b]>=6 then stp[b]:=70;
if vid[b]>=8 then stp[b]:=130;
end;
gotoxy(50,b*2+1);
writeln(stp[b],'EUR');
end;
readln;
end.