Текстовая
..
т.к представлен текст.
Var
n: longint;
s: integer;
p: boolean;
begin
s:=0;
readln(n);
while n > 0 do
begin
if n mod 10 < 6 then
begin
inc(s, n mod 10);
p:=true;
end;
n := n div 10;
end;
if p = true then
writeln(s)
else
writeln('Нет');
end.<span>
</span>
Ячейка - минимальный объект табличного процессора
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.