Еве нешто лично од мене:
Собирање полиноми
program SobiranjePolinomi;
var a,b,c: real;
p:real;
begin
WriteLn('Vnesi gi a,b,c');
Read(a);
Read(b);
Read(c);
p:=a*a+2*a*b+b*b+c*c+2*a*c+2*b*c;
WriteLn('A*A ',' + ','2*A*B ',' + ','B*B ',' + ','C*C ','2*A*C ',' + ','2*B*C ','= ',a*a:5:2 ,' +...