1 lygis | 2 pamokėlė | 3. Matematika

var
  a, b, c, d, e : integer;
  vid : real;
begin
  WriteLn('Kokius pažymius gavo Petriukas?');
  Readln(a, b, c, d, e);
  vid := (a+b+c+d+e) / 5;
  if vid > 9 then
    writeln('Petriukas gaus tris saldainius.')
  else if (7 <= vid) and (vid <= 9) then// 7 <= vid <= 9
    writeln('Petriukas gaus du saldainius.')
  else
    writeln('Petriukas gaus vieną saldainį.');
end.