var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
2: $A$1+B2=110+55=165
3: $A$1+B3=110+60=170
Program n1;
var a: array[1..27] of integer;
i: integer;
begin
randomize;
for i:=1 to 27 do a[i]:=random(76)+25;
end.
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
Пуск-завершение работы или принудительное