Можно алгоритм как приготовить бутерброд и т.д.
.................................................
Var
a:real;
Begin
Write('Сторона равностороннего треугольника: ');ReadLn(a);
WriteLn('P = ',a*3);
WriteLn('S = ',a*a);
End.
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
А если у музыканта не ту музыкального инструмента ,то он закачевает на компьютер а который нужен инструмент!!!!¡!
понял дружок,пирожок?