Var a,b,c,p:integer;
begin
readln(a,b,c);
if a>0 then begin p:=p*a; writeln(a); end;
if b>0 then begin p:=p*b; writeln(b); end;
if c>0 then begin p:=p*c; writeln(c); end;
writeln('произведение:',p);
end.
Если речь идет об электронных таблицах, то ячейка именуется по умолчанию номером столбца и номером строки. Например: А5, В10, IV65536. Пользователь может сам вместо такого имени ячейки присвоить ей мнемоничное (отражающее суть данных) имя, но об этом можно говорить уже после того, как основные операции с таблицей освоены.
var x:integer;
begin
writeln('введите число');
readln (x);
case x of
0:writeln ('Zero');
1:writeln ('One');
2:writeln ('Two');
3:writeln ('Three');
4:writeln ('Four');
5:writeln ('Five');
6:writeln ('Six');
7:writeln ('Seven');
8:writeln ('Eight');
9:writeln ('Nine');
end;
end.