program DersKacta;
var

  ders,numarason,gun:integer;

begin
  writeln('1- Yazilim Kurulumu ve Yonetimi ');
  writeln('2- Programlama Temelleri ');
repeat
  write('Ders Secimi Yapiniz :   ');readln(ders);
  until (ders<3) and (ders>0);

  if (ders)=2 then
begin
repeat
    write('Okul Numaraninizin Son Rakamini Giriniz: ');readln(numarason);
until (numarason>-1) and (numarason<10);

end;
if (ders)=1 then
begin
repeat
      write('Okul Numaraninizin Son Rakamini Giriniz: ');readln(numarason);
until (numarason>-1) and (numarason<10);
end;
if (numarason) mod 2=0 then
begin
repeat
      Write('Ders Ayin Kacinci Gununde: ');readln(gun);
until (gun>0)and(gun<31);
if (gun) mod 2=0 then
Write('Dersiniz Saat 09.00 da ')
else
 Write('Dersiniz Saat 13.00 te ');

end;
if (numarason) mod 2=1 then
begin
repeat
      Write('Ders Ayin Kacinci Gununde: ');readln(gun);
until (gun>0)and(gun<31);
if (gun) mod 2=1 then
    Write('Dersiniz Saat 11.00 de ')
else
    Write('Dersiniz Saat 13.00 te ');
end;
readln;
end.