program FindValue; var x, y: Integer; begin for x := 5 to 12 do begin y := x * x + 1; writeln('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);
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