Сгенерировать число из промежутка от 150 до 200 и выделить его первую и последнею цифру

180
1я-1
последняя-0
это аснтвтюамлоаион

Вообще формула диапазона [a,b]
x:=random(b-a+1)+a;

program qq;
var a, b, c: integer;
begin
a:=random(51)+150;
b:=a div 100;
c:=a mod 100;
write ('pervaya cifra ', b,', tretya cifra ', c,'.');
end.