program speed_o_meter;
var
timer1,timer2,i:integer;
a:real;

begin
timer1:=GetRelativeTimeMs;

for i:=1 to 50000 do
a:=sin (i);

timer2:=GetRelativeTimeMs;
timer1:=timer2-timer1;
drawtext ('Время: '+integertostring(timer1)+' миллисек.',0,0);
repaint;
delay (1000);
end.