Нужно сделать 1 полностью, а также попрошу подробно показать как пишется эта формула

мало данных для главное - размер пробоины и размер листа

  writeln(x) вот этой! потому что если взять  в ковычки выведет х

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.

a: =a+b; (новое а после присвоения будет равно 6, b будет равно 4)

b: =a-b (новое b после присвоения будет равно 2, a будет равно 6)

a: =a-b (новое a после присвоения будет равно 4, b будет равно 2)