Var
x, y: real;
begin
Write('Введите х: ');
Readln(x);
if x < 1 then y := 2 * x - 5
else y := x * x * x - 2 * x;
Writeln('y=', y)
end.
6 букв
1)A
2)M
3)A
4)Z
5)O
6)N
слово:AMAZON
что такое amazon можете в интернете поискать
Var
a, b: real;
begin
readln(a, b);
writeln('S=', a * b);
writeln('P=', 2 * (a + b));
end .
Мне это мама сказала если что-то не правильно скажи,исправлю
N:10 for(i 1 ;i больше n ;i++) A[n+1 i больше ] 2* A[i]