program bobr_1;
var
a: integer;
c: integer;
BEGIN
write (' введите число для нахождение корня');
Readln (a);
c:=sqrt(a);
Writeln ('PE3yJIbTAT : ',c);
END.

Не работает по не понятным причинам, думаю кто нибудь скажет в чем проблема.
Простите за очень тупой вопрос, не кому больше обратиться.

P.S: для дальнейшего обучения мне архее важен ответ на этот вопрос

вопрос не по теме: как округлять значения до целых чисел и очищать каждый раз экран автомотически

У вас переменная с - целочисленная (integer), а должна быть дробной - (single или double).

спасибо

для очистки екрана подключаеш модуль crt; а очитка clrscr;
а формат вывода можно так позначать
Writeln ('PE3yJIbTAT : ',c:1:0);
c:1:0 ознчает что будет выводится 0 знаков после запятой и 1 знак перед запятой но паскаль для нужды переставит если будет например чило 10 или больше кол знаков перед запетой

огромное спасибо вам АМЕГА

shprot С 8 МАРТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

з.ы. меня девушки с каждым днем удевляют нет что б сегодня радоватся днем они програмками мучаются

спс тебе опять амега