program FindValue; var x, y: Integer; begin for x := 5 to 12 do begin y := x * x + 1; writeln′x=′,x,′,y=′,y'x = ', x, ', y = ', y′x=′,x,′,y=′,y; end; end.
//Output: // x = 5, y = 26 // x = 6, y = 37 // x = 7, y = 50 // x = 8, y = 65 // x = 9, y = 82 // x = 10, y = 101 // x = 11, y = 122 // x = 12, y = 145
program FindValue;
var
x, y: Integer;
begin
for x := 5 to 12 do
begin
y := x * x + 1;
writeln′x=′,x,′,y=′,y'x = ', x, ', y = ', y′x=′,x,′,y=′,y;
end;
end.
//Output:
// x = 5, y = 26
// x = 6, y = 37
// x = 7, y = 50
// x = 8, y = 65
// x = 9, y = 82
// x = 10, y = 101
// x = 11, y = 122
// x = 12, y = 145