Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s: string;
i: longint;
begin
readln(s);
for i: =1 to length(s) div 2 do write(s[i]);
end.
x,y: real;
readln(x);
y: =7*sin(x)*sin(x)-0.5*cos(x);
writeln(y);
Популярные вопросы