Ymmärtämistehtävä puolessavälissä

program arvaus (input, output);

(* Arvauspeli *)

var a, p: integer;
    s, t: Boolean;

begin
     p := 0;
     s := false;
     t := false;

     (* -------- Ensimmäinen arvaus -------------------- *)

     write('Anna ensimmäinen arvattava: '); readln(a);
     if a = 2 then
        begin
        p := p + 10;
        s := true
        end;

     (* -------- Toinen arvaus ------------------------- *)

     if s then
        begin
        write('Anna toinen arvattava: '); readln(a);
        if a = 7 then
           begin
           p := p + 15;
           t := true
           end
        end
     else
         begin
         write('Anna ensimmäinen arvattava: '); readln(a);
         if a = 2 then
            begin
            p := p + 10;
            s := true
            end
         end;

     (* -------- Kolmas arvaus ------------------------- *)

     if t then
        begin
        write('Anna kolmas arvattava: '); readln(a);
        if a < 5 then p := p + 20
        end
     else if s then
         begin
         write('Anna toinen arvattava: '); readln(a);
         if a = 7 then p := p + 15
         end
     else
         begin
         write('Anna ensimmäinen arvattava: '); readln(a);
         if a = 2 then p := p + 10
         end;

     writeln('Sait ', p, ' pistettä.')
end.