Uses crt;
var a,x:integer;
i,s:integer;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if s=10 then
writeln('Верно')
else
writeln('Неверно');
end.
Прямоугольная область на экране монитора, которую занимает работающая программа, называется окно программы
Program v1;
Var n,k, sum: integer;
Begin
Write ('Введите знаменатель: ');
Readln(n);
Write ('Введите числитель: ');
Readln (k);
Sum := (n div k);
Write(Sum);
End.
Тут описано - http://edufuture.biz/index.php?title=Об%27єкти_та_операції_над_ними
=СЧЁТЕСЛИ(A1:A3;"<1000")+СЧЁТЕСЛИ(A1:A3;">30000")
Вместо A1:A3 задавайте нужный диапазон.