sqrt(169)+(10 mod 7)-(sqr(15 div 10)+5)

сказали,что можно включить туда какие-нибудь интересные факты.что можно сделать?или скиньте пожалуйста ссылки на хорошие сайты.заранее спасибо!

помидор; 5)магистраль, вестибюль, бандероль, лазурь; 6)озимь, цитадель, фланель, панцирь; 7)подстаканник, подорожник, подснежник,подлокотник;

2."В трех вазах стоят розы,пионы и ирисы. Каждый день хозяйка берет один цветок , любуется им и ставит обратно. Сообщение "Извлечена роза" несет 3 бита информации, а сообщение "Извлечен пион"- 4 бита.Известно, что ирисов 7 штук.Сколько всего цветов у хозяйки?

Записатьрезультат выполненых операций

Abs(35.4)

Int(56.23)

Sqrt(49)

Frac(43.67)

Sqr(9)

Round(-45.67)

35 mod 10

21 div 2

как это делается?

a) A:=round(10*2 div 2 mod 5 / 3) - trunc (sqrt(4))
b) M:=succ(round (15 / 2) -pred (13))
c) Y:=round(13.99) mod 5+ trunc(sqrt(121))-125 div trunc(100/8)

Пример:
Вход 1212
На выходе 2

Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(

печатает сначала 3, а потом 10.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:=L+1;
if M < x then begin
M:= (x mod 10) * 2;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
И объясните пожалуйста