Uses Crt;
Var x, ball: Integer;

    begin
      ClrScr;
      ball:=0;
      Write('1) 22+33='); Readln(x);
      If x=55 Then
         begin
           Writeln('Da! Praviljno!');
           inc(ball);
         end
      Else Writeln('Net! Budet 55');

      Write('2) 10+20='); Readln(x);
      If x=30 Then
         begin
           Writeln('Da! Praveljno!');
           inc(ball);
         end
      Else Writeln('Net! Budet 30');

      Writeln('Ocenka:',ball);
      Readln;
End.