Ответ:
Объяснение:
Program n1;
var x, y: longint;
begin
writeln('Введите x');
readln(x);
if (x<=10) and (x>=-10) then y:=7*x else y:=x+5;
writeln('y = ', y);
readln;
end.
У тебя всё есть дерзай! У тебя всё получится!!
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
СМОТРИ ВЛОЖЕНИЕ
...........................