Var x,a:real;
Begin
WriteLn('ln|x^3/a|');
Write('x = ');ReadLn(x);
Write('a = ');ReadLn(a);
WriteLn(Ln(Abs(x*x*x/a)));
End.
Var s:string; p1,p2:integer;
begin
writeln('Введите слово:');
readln(s);
p1:=pos('жы',s);
p2:=pos('шы',s);
if (p1=0)and(p2=0) then writeln('Ошибок не замечено.');
if p1>0 then
begin
delete(s,p1,2);
insert('жи',s,p1);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
if p2>0 then
begin
delete(s,p2,2);
insert('ши',s,p2);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
end.
И на каком языке тебе нужно? почему не указываете то?!
Компьютер это система так как она состоит из подсистем и взаимосвязанных элементов.