Program z1;
var y:integer;
x:byte;
begin
x:=4;
while x<=12 do begin
y:=x*x-2+3*x;
writeln(x=,x, ,y=,y);
x:=x+4
end;
readln
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.