Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.
Попробуй тут
http://www.bestreferat.ru/referat-8161.html
Пристрої введення це - клавіатура , мишка та вебкамера
64*64*16*1024=<span>
<span>67108864бит/8/1024/1024=8Мбайт</span></span>