var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
Да,нужно .Чертишь,считаешь,и записываешь
Монитор, клавиатура, мышь,компьютерный блок питания.
// Например так:
begin
var a := 123456789;
a := a.ToString[2:].ToInteger;
Print(a) // 23456789
end.
// Или так:
function foo(a: integer): integer;
begin
if a div 10 = 0 then exit
else
Result := a mod 10 + 10 * foo(a div 10);
end;
begin
var a := 123456789;
Print(foo(a)) // 23456789
end.