Program Neprogram;
Var vek,god: integer;
BEGIN
writeln('Vvedite god');
readln(god);
if god mod 10 = 0 then
BEGIN
vek:= god div 100;
writeln(vek,' stoletie');
writeln
End
ELSE
Begin
vek:= god div 100 + 1;
writeln(vek,' stoletie');
writeln;
End
END.

Vvedite god
1900
19 stoletie

Vvedite god
1991
20 stoletie

program Neprogram;
Var number,summ,proiz:integer;
BEGIN
writeln('Vvedite chslo');
readln (number);
if number div 100 > 0 then
  if number div 100 < 10 then
     Begin
     summ:= (number div 100) + (number mod 100 div 10) + (number mod 100 mod 10);
     proiz:= (number div 100) * (number mod 100 div 10) * (number mod 100 mod 10);
     writeln('Summa chisel = ',summ);
     writeln('Proizvedenie chisel = ',proiz);
     End
     else
     writeln('Nevernoe chislo')
else
  writeln('Nevernoe chislo');
END.

Vvedite chslo
99
Nevernoe chislo

Vvedite chslo
55555
Nevernoe chislo

Vvedite chslo
123
Summa chisel = 6
Proizvedenie chisel = 6

Vvedite chslo
567
Summa chisel = 18
Proizvedenie chisel = 210