var y,x:integer;
begin
readln(x);
y:=x-10;
writeln(y);
end.
Объяснение:
Так что ли? Бред какой то...
program a1;
Var
x,a,h:integer;
Begin
Readln(x);
writeln('y = ',x-10);
Readln(a,h);
write('S = ', 1/2*a*h);
var y,x:integer;
begin
readln(x);
y:=x-10;
writeln(y);
end.
Объяснение:
Так что ли? Бред какой то...
program a1;
Var
x,a,h:integer;
Begin
Readln(x);
writeln('y = ',x-10);
Readln(a,h);
write('S = ', 1/2*a*h);
end.