Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
var
i,a,b: integer;
begin
writeln('Введите границы интервала: ');
readln(a,b);
for i:=a to b do
writeln(i,' ',sqr(i),' ',sqr(i)*i);
end.
Var a, b: integer;
begin
readln(a);
if (a = 1) then write('Здравствуйте, Уважаемая ');
if (a = 2) then write('Здравствуйте, Уважаемый ');
if ((b > 25) and (a = 1)) then writeln('мадама');
if ((b <= 25) and (a = 1)) then writeln('леди');
if ((b > 25) and (a = 2)) then writeln('сэр');
if ((b <= 25) and (a = 2)) then writeln('господин');
end.
Слова только поменяйте, что ли...:)