Е!
var
a: string;
i: integer;
begin
writeln('Введите строку');
readln(a);
for i:= 1 to length(a) do
if (a[i] = '1') or (a[i] = '2') or (a[i] = '3') or (a[i] = '4') or (a[i] = '5') or (a[i] = '6') or (a[i] = '7') or (a[i] = '8') or (a[i] = '9') then a[i]:= ' ';
writeln(a);
end.
Программа заменяет цифры на пробелы.
ax, ay, bx, by, cx, cy, S, P: real;
read(ax, ay, bx, by, cx, cy);
S := 0.5 * abs((ax - cx) * (by - cy) - (bx - cx) * (ay - cy));
P := sqrt(sqr(bx - ax) + sqr(by - ay));
P := P + sqrt(sqr(cx - bx) + sqr(cy - by));
P := P + sqrt(sqr(ax - cx) + sqr(ay - cy));
write('Периметр ', P, ' площадь ', S)