Stuff

{Mantas Adomaitis 2a}
program pazymiai;
var x,y,z, pirm,antr,trec,ketv,penkt,sest : integer;
begin
  WriteLn('suvedame 6 informatikos pazymius');
  ReadLn(pirm,antr,trec,ketv,penkt,sest);
  x:=0 ;
  If pirm  >=9 then x:=x+5;
  if antr  >=9 then x:=x+5;
  if trec  >=9 then x:=x+5;
  if ketv  >=9 then x:=x+5;
  if penkt >=9 then x:=x+5;
  if sest  >=9 then x:=x+5;
  Writeln('Moksleivis uzdirbo:', x ,'LT');
  Readln;
end.