Составить линейные программы :1) нахождения площади помещения (домашней комнаты); 2) нахождения количества полных центнеров в х килограммах.

program area;var weight,height:real;beginWriteln('введите длинну и ширину комнаты');Readln(weight,height);weight:=weight*height;Write('площадь =',weight);end. program centner;var kg:integer;beginWriteln('введите количество килограммов');Readln(kg);kg:=kg div 100;Write('центнеров: ',kg);end.