Составьте программу в Pascal по следующему сценарию: при нажатии на клавишу <к> а произвольном месте экрана появляется квадратик, при нажатии на клавишу <о> - окружность.

uses GraphABC;var  s:char;  x,y,r:integer;beginreadln(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.