Надо! pascalгольфист намеревался одним ударом отправить мяч из точки а в лунку, расположенную в точке в. однако удар получился слишком сильным. в итоге мяч вместо лунки оказался в точке с, лежащей на луче ав в k раз дальше от точки а, чем от точки в. требуется найти декартовы координаты точки с, если известны декартовы координаты точек а и в.входные данные.в единственной строке входного файла input.txt записаны через пробел пять чисел. первые четыре числа-это сначала декартовы координаты точки а, затем точки в. это-целые числа, по модулю не превосходящие 10^6. пятое число-то натуральное число k, причем 2≤k≤10^3выходные данные.в единственной строке входного файла output.txt должны быть записаны через пробел два числа-искомые декартовы координаты (x,y) точки с. гарантируется, что эти числа-целые.

1. почистить изнутри 2. если есть непригодные детали заменить 3. по надобности можешь повысить оперативы, но нужно, чтобы планки памяти были одинаковые! 4 по надобности можешь добавить ssd памяти, поставив новый диск, но он должен быть такой же как и старый. если вирус снеси винду и через флэшку и биос поставь новую, предварительно кинуть на другую флэшку нужную информацию.

p.s по моим подщетам на почистить детали-530руб. оператива kingston 8гб 2 штуки 290$ ssd память терабайт-299$, флэшка или диск с виндоус 10 pro version с полной поддержкой-125$ итого: 43370руб. это примерная цена, я заходил месяц назад на магазин и это без доп деталей! в $: 722,83$

#1:

const
Count = 3; // количество проверяемых чисел

var
m : array [1..Count] of Integer;
i, e, c: Integer;
begin

Writeln('Введите числа:');
for i := 1 to Count do
begin
Write(i ,': '); Readln( m[i] );
end;

for i := 1 to Count do
for e := 1 to Count do
if m[i] < m[e] then
begin
c := m[i];
m[i] := m[e];
m[e] := c;
end;

for i := 1 to Count do
Write(m[i], ' ');

Readln;
end.

#2:

var
a, b, c, x, y: Integer;
begin

Writeln('Введите рёбра кирпича:');
Write('a: '); Readln( a );
Write('b: '); Readln( b );
Write('c: '); Readln( c );

Writeln('Введите стороны отверстия:');
Write('x: '); Readln( x );
Write('y: '); Readln( y );

x := x*y;

if (a*b <= x) or (a*c <= x) or (b*c <= x) then
Write('Пройдёт.')
else
Write('не пройдёт.');

Readln;
end.