Integer

[Лиза_]

Пожалуйста помогите сделать Integer 29 и 30 в Pascal ABC

[Mad_Cat]

program integer29;
var a,b,c:integer;
begin
writeln('Введите  a');
readln(a);
writeln('Введите  b');
readln(b);
writeln('Введите  c');
readln(c);
writeln('Количество квадратов ',(a div c)*(b div c));
writeln('Незанято ',a*b-(a div c)*(b div c)*c*c);
end.
(**)
program integer30;
var a,b,c:integer;
begin
writeln('Введите год ');
readln(a);
writeln('номер столетия ',(a-1) div 100+1);
end.
(**)