1) даны три цифры: цифра единиц, десятков и сотен. Вычислить само число. 2) Дана масса в килограммах. Найдите число полных центнеров в ней.

program zadacha;

var a, b:integer;

begin

writeln ('введите число сотен') ;

readln (a) ;

b:=a*100;

writeln ('введите число десятков') ;

readln (a) ;

b:=b+a*10;

writeln ('введите число едениц') ;

readln (a) ;

b:=b+a;

writeln ('полученное число = ', b) ;

readln;

end.

program zadacha2;

var a:integer;

begin

writeln ('введите кол-во кг') ;

readln (a) ;

a:=a div 100;

writeln ('кол-во центнеров = ', a) ;

readln;

end.