Var
<span>
R1, R2, R3, S1, S2, S3: Integer;</span><span>
begin</span><span>
writeln('Введите размеры
рации и чемодана');</span><span>
readln(R1, R2, R3, S1, S2, S3);</span><span>
if ((R1 < S1) and (R2 < S2)
and (R3 < S3)) or</span><span>
((R3 < S3) and (R2 < S1) and
(R1 < S2)) or</span><span>
((R1 < S1) and (R2 < S3) and
(R3 < S3)) or</span><span>
((R2 < S2) and (R1 < S3) and
(R3 < S1)) or</span><span>
((R2 < S1) and (R3 < S2) and
(R1 < S3)) or</span><span>
((R1 < S2) and (R3 < S1) and
(R2 < S3)) then</span>
<span>WriteLn('ПОМЕЩАЕТСЯ')</span><span>
else</span>
<span>WriteLn('НЕ ПОМЕЩАЕТСЯ');</span>
<span>end.</span>
//PascalABC.NET 3.2 сборка 1318
Var
s:array[1..60] of char;
i,j,len:integer;
begin
len:=60;
for i:=1 to 60 do
read(s[i]);
i:=1;
while(i<=len-3) do
begin
if (s[i]='m') and (s[i+1]='a') and (s[i+2]='m') and (s[i+3]='a') then
begin
s[i]:='d';
s[i+1]:='e';
s[i+2]:='d';
for j:=i+3 to len-1 do
s[j]:=s[j+1];
dec(len);
end;
inc(i);
end;
for i:=1 to len do
write(s[i]);
end.