Ответ:

var a,k:integer;beginwriteln ('На сколько яиц больше курочка снесла во второй раз, k= ');readln(k):a:=1+(1+k)=(1+k+k)+(1+k+k+k)+(1+k+k+k+k);writeln('Дед и баба могли сделать яичницу из "а!

яиц); end.