Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var s:=ReadString('введите свое имя и фамилию:');
for var i:=1 to 10 do s.Println;
end.
Program isch;
Varx,y,z,k,n:integer;
Begin
x:=2;y:=3;k:=1;n:=8;
if (k<=n) then
begin z:=3*y+4*x+1;
x:=y;
y:=z;
k:=k+1;
end;
writeln('z=',z, ' x=',x, ' y=',y, ' k=',k);
<span>end.
Делал строго по алгоритму...</span>