Название по-моему называется: Excel, точно не знаю, если что извените...
var
price, a, b:real;
begin
write('Введите стоимасть 1 кг краски '); readln(price);
write('Введите длину комнаты '); readln(a);
write('Введите ширину комнаты '); readln(b);
writeln('Стоимость покараски пола комнаты составляет ', price * 0.15 * a * b);
end.
<span>выделить его, а затем переместить при одновременно нажатых левой кнопке и клавише ctrl</span>
Program qq;
uses crt;
var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
readln(x1, y1);
writeln('Введите координаты второй токи через пробел');
readln(x2, y2);
writeln ('введите через пробел числа N1 и N2');
readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании
x:=(x1+L*x2)/(1+L);
y:=(y1+L*y2)/(1+L);
writeln ('Координаты искомой точки (',x,';',y,')');
end.<span>
</span>