Paolo очно подберите к сдаче уравнение !!!!

Uses graphabc; var   s: char;     x,y,r: integer; begin readln(s); x: =random(100)+200; y: =random(100)+200; r: =random(100)+100; if s='к' then drawrectangle(x,y,x+r,y+r); if s='о' then drawcircle(x,y,r); end.

 Иван IVВасильевич создал (или активно содействовал) : 
регулярное стрелецкое войско, 
первую русскую военную флотилию на Балтике, 
Судебник, 
типографию (Печатный Двор) , 
частично унифицировал артиллерийский парк (жаль - не до конца) 
нанёс поражение работорговым ханствам Казанскому и Астраханскому, присоединил эти территории к Руси, 
вступил в дипломатические и военные сношения с Донским и Терско-Гребенским казачествами (в тот период это были независимые парагосударственные образования, ближе всего соотносившиеся по форме правления с Новгородской Республикой более раннего периода) 
с помощью созданной опричнины сломил становой хребет боярским усобицам (к сожалению через несколько лет после его смерти воспрянувшее боярство довело Русь до Смуты) 
вернул часть исконо русских земель на побережье Балтики и в современной Беларуси. 
и так далее и так далее...

О чём то думать усердно

Никитин Иван Саввич(1)
Афанасий Афанасьевич Фет (2)
Фёдор Тютчев(3)