Дана база данных (MS Access) "Работники предприятия".
Напиши за Необходимо получить информацию: все фамилии, которые входят в диапазон от А до Ж.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

в ms excel по умолчанию числа выравниваются по правому краю, текст по левому

но при ручном форматировании можно выравнивать как угодно

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end.