Набрать текст программы в редакторе программ Паскаля и запустить ** исполнение....

Question

Набрать текст программы в редакторе программ Паскаля и запустить на исполнение. Проанализировать полученный результат:
Program pr1; Const f=2;
Var a: Integer; b: Real;c: Char;d: Boolean; Begin a:=5; b:=Sqrt(f); c:=’s’; d:=-7<25;<br> WriteLn(‘значение переменной а’,a);
Write (‘нажми клавишу enter’); ReadLn End.

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25                 x0 := 30;         Y0 := 460;         MaxY := 80;         MaxX := GetMaxX;         i := 1;         T0 := rez[Id_T, 1];         Tk := 15;         Tkv := 0.75;         MoveTo(x0, Y0);           While T0 <= Tk do         begin             x := X0 + 70 * Round( rez[Id_T, i] );             y := Y0 - Round( rez[Id_Zt, i] / 7.8 );               LineTo(x, y);               T0 := T0 + Tkv;             i := i + 1;               DelaySeconds := Round(Tkv * 1000);             Delay(DelaySeconds);         end;         <span>{ ...Построение графика }