Вот.
program pr;
var s,k,a,i,sr:integer;
begin
s:=0;
k:=100;
a:=100;
for i:=a downto 11 do begin
s:=s+a;
k:=k-1;
a:=a-1;
end;
sr:=sqr(s);
writeln(sr,' ',k);
end.
DIM b AS STRING * 1
DIM a AS STRING * 100
DIM i, k, n AS INTEGER
INPUT "INPUT STRING", a$
INPUT b$
k = LEN(a$)
FOR i = 1 TO k
IF MID$(a$, i, 1) = b$ THEN
n = n + 1
END IF
NEXT i
PRINT n
END<span>
</span>
Div- деление нацело( отбрасываем дробную часть)
Mod - деление с остатком( отбрасываем целую часть)
1) 10 div 5=2
2) 5 mod 3=2
3) 100 div 20=5
4) 4 mod 1=0
5) (10 mod 3)*(11 mod 2)=1
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся