// Код полностью
var
a, b: real;
begin
a := 5;
b := -3;
a := b + a * 3;
b := 360 / a;
b := a + b;
writeln(a);
writeln(b);
end.
// Вывод
12
42
Воно може займати будь яке положення
Var s: string;
n,m: integer;
begin
write('строка: '); readln(s);
n:=length(s);
m:=n div 2;
if n mod 2 = 1 then delete(s,m+1,1)
else delete(s,m,2);
writeln(s)
end.
<span>
</span>