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

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