1) program znanija1;
var
x,y:real;
begin
readln(x);
y := 2*x*x*x-4;
writeln(y);
end.
2)program znanija2;
var
a,b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
Writeln('Произведение квадратов = ', sqr(a)*sqr(b));
Writeln('Разность квадратов = ', sqr(a)-sqr(b));
end.