Составить алгоритм(программу) на языке паскаль:y=b^2-100

var b,y:integer;beginb:=0;y:=0; Writeln( 'Ââåäèòå ÷èñëî B '); readln(b); y:=sqr(b)-100; Writeln(y); readln;end.