Подскажите , недавно наткнулся на группу в вк «блог пингвина», где ножи для cs: go. если кто знает это очередная наебка или реально после оплаты скинут вещи (не наебка)

Не понял что именно от тебя хотят.но если все действия происходят в паскаль, то на оператор ветвления.а вот и сама программа на всякий случай: program proverka; uses crt; var x: real;         begin                        clrscr;                             writeln ('введите x');                           readln (x);                                                                         if x< 0 then                                                          writeln ('отрицательное число x=' , x: 5: 2)                                                else                                                            begin                                                                    if x> 0 then                                                                              writeln ('положительное число x=' , x: 5: 2)                                  else                                                          writeln ('вы выбрали неверное значение');                                                       end;                           readln;     end.

Только в среде pascal.abc.net ! лучше писать результат не в тот же файл, а в другой: при составлении регулярных выражений без достаточного опыта можно легко ошибиться. uses   system.text.regularexpressions; const   crlf = #13#10; var   s, sbig: string;   fin, fout: text; begin   assign(fin, 'myin.txt');   reset(fin);   sbig : = '';   while not eof(fin) do   begin       readln(fin, s);       sbig : = sbig + s + crlf   end;   close(fin);   {пример - уладить подстроки, начиная с "http: " и до первого пробела,   причем внутри подстроки может встретиться переход на новую строчку.   используется шаблон '\bhttp: \s+' - подробности: регулярные выражения}   sbig: =regex.replace(sbig, '\bhttp: \s+', '', regexoptions.multiline);   assign(fout, 'myout.txt');   rewrite(fout);   write(fout, sbig);   close(fout);   writeln('конец работы'); end.