Например: program Math; uses Сrt; var k,m,r,v : Real; Ch : Char; begin TextbackGround(3); Clrscr; TextColor(14); gotoxy(14,12); Write('Введите значение переменных m,r,v '); Read(m,r,v); clrscr; Randomize; k := (m + 0.5)*(r – 0.3)/(v + 10.5*Random); gotoxy(8,10); WriteLn('Значения переменных: ','m=',m ,' r=',r ,' v=',v); gotoxy(14,14); WriteLn('Результат - ',' k=',k); memw[0:$41a] := memw[0:$41c]; {очистка буфера клавиатуры} Ch := ReadKey; {ожидание нажатия клавиши} end.