Решите пожалуйста информатикчка ни чего не растолковала.

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('Введите 1-ое число');

readln(a);

writeln('Введите второе число');

readln(b);

Writeln('Творенье квадратов = ', sqr(a)*sqr(b));

Writeln('Разность квадратов = ', sqr(a)-sqr(b));

end.