//PascalABC.NET 3.1 сборка 1239
begin
var s := ReadlnString('s =');
s:=s.Replace('То', '');
writeln(s);
end.
Зайди на сайт юкоз там можно бесплатно создать свой сайт
Var a:array[1..3,1..3] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do begin
read(a[i,j]);
if not odd(a[i,j]) then s+=a[i,j];
end;
writeln(s);
<span>end.</span>
1.-1;
2.-4;
3.-5;
4.-6;
5.-2;
6.-3;