найти дополнительный код числа n, которое находится в к-ичной системе счисления, и проверить его правильность:
1)n=-976; k=3
2)n=-5729184; k=15
3)n=-338860; k=12
4)n=-928812; k=10
5)n=-1452167; k=11
6)n=-2578; k=4

1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран.
var x,y,a:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x*x-x-4>=0 then
 begin
 a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4));
 writeln('a = ',a:5:3);
 end
 else writeln('Корень из отрицательного числа');
end.

2)
var a,b,c,d:real;
begin
writeln('Введите a, b, c, d:');
readln(a,b,c,d);
if (a=d)
 then if (c=b) then writeln('Бесконечно много решений')
               else writeln('Решения нет')
 else writeln('x = ',(c-b)/(a-d));
end.

Пример:
Введите a, b, c, d:
2 1 4 3
x = -3

я знаю только блок схемы Visio

Запустите Visio.

Выберите категорию Блок-схема.

Дважды щелкните значок Простая блок-схема.

Для каждого этапа документируемого процесса перетащите в документ соответствующую фигуру блок-схемы.

Чтобы соединить элементы блок-схемы, наведите указатель мыши на первую фигуру, и щелкните стрелку, указывающую на фигуру, с которой требуется создать соединение. Если вторая фигура находится не рядом с первой, необходимо перетащить маленькую стрелку к центру второй фигуры.

Чтобы добавить текст для фигуры или соединительной линии, выделите ее и введите текст. По завершении ввода текста щелкните в пустой области страницы.

Чтобы изменить направление стрелки соединительной линии, выберите соединение, а затем на вкладке Фигура в группе Стили фигур щелкните пункт Линия, наведите указатель на пункт Стрелки и выберите нужное направление и вид стрелки.

Автоматическое выравнивание и интервалы

Нажмите сочетание клавиш CTRL+A, чтобы выбрать все объекты на странице.

На вкладке Главная в группе Упорядочение нажмите кнопку Положение и выберите пункт Автовыравнивание и определение интервалов.