Program z1;
var x,y:real;
begin
read(x);
y:=6*sqr(x)+3*sqr(sqr(x)+1);
writeln(y);
end. (это если та двойка после скобок означает квадрат)
Лишнее желудь
Так как на всём остальном писали в древности
var
s: string;
e, tmp: integer;
mistake: boolean;
begin
mistake := true;
write('Введите логин: ');
readln(s);
if ((s.Length = 7) and (s[1] = 'i') and (s[2] = 'o')) then
begin
s := s.Remove(0, 2);
Val(s, tmp, e);
if (e = 0) then
mistake := false;
end;
if (mistake) then
write('Incorrect')
else
write('Correct');
end.
Var i,n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
for i:=1 to n do sum:=sum+i;
writeln ('Summa; ',sum);
end.