Клавиатура, сканер, мышь- какова группа объектов

албания- тирана

бельгия- брюссель

венгрия- будапешт

греция- афины

лихтештейт- вадуц

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.