Требования для создания интерфейса программы​

ш, с, в (о-дин, д-ва, т-ри, ч-етыре, п-ять, ш-есть, с-емь, в-

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

v=331+ 0,6*t

в зимний день- v=331+ 0.6*(-35)=310 м/с

в летний день-   v=331+ 0.6*30=349 м/с

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.