Дашборд деген не? жобасын әзірлендер​

почитай тут 

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

одна из возможных форм курсора : прямая

var x: integer;

begin

  read(x);

  if x> 0 then x: =x+10

  else x: =x-10;

  writeln(x);

  read(x);

  if x> 0 then x: =x+5;

  writeln(x);

end.