var a: integer;
begin
readln(a);
if a mod 2=0 then writeln (a/2)
else writeln (sqr(a));
end.
Программа представлена на языке Pascal.
Тогда вот, все по букве задания
var
s : string;
t : char;
i : integer;
begin
readln (s);
read (t);
i := 1;
while (i <= length (s)) do
begin
if s[i] = t then delete (s, i, 1)
else i := i + 1;
end;
writeln (s);
<span>end.</span>