Все зависит от версии языка Паскаль (см. вложения).
StrToInt определено только в PascalABC.NET, его предшественнике, "умершем" 10 лет назад - Pascal ABC и в Borland Delphi - также давно (с 2008 года) закрытом проекте корпорации Borland Inc.
Вы не указали язык программирования, поэтому ответ выбирайте по вложениям.
Program circle;
uses graphabc;
var
x:integer = 640;
y:integer = 400;
r:integer = 40;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
DrawCircle(x div 2,y div 2, r);
setbrushcolor(clred);
FillCircle(x div 2,y div 2, r)
end.
Корня , побега , середины
Ну переводишь всё в 10-ю (сумма произведений разрядов на с.с. в степени позиции разряда):
(3 * x^0) + (3 * x^1 + 1 * x^0) = (1 * x^2 + 1 * x^1) <=>
3 + 3x + 1 = x^2 + x <=>
x^2 - 2x - 4 = 0
D = 4 - 4 * 1 * (-4) = 20
=> x - не целый => решения нет
Понадобится 2 формулы:
1)N=p^i где p=2, а N=678
2)I=n*i где n=200, а i=(найденое значение из 1 формулы).
Решение:
1)678=2^i i=10 бит.