Придумать диалоговое окно. мой новый компьютер..

как то так  , вас windows 

копьютер:

олян: что делаеш?

компьютер: скачиваю твои нужные файлы а ты

олян: жду пока ты скачаеш)

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.