Написать программу.известно, что x кг конфет - стоит a рублей.определить сколько стоит y кг этих же конфет, а так же сколько кг конфет можно купить на k рублей.все значения вводит пользователь

Program konfeta;
uses crt;
var a,b,c,k:integer; 
   d,e,m:real;
begin 
clrscr; 
write('Input (x) weight: '); 
readln(b); 
write('Input (a) cost: '); 
readln(a); 
d:=a/b; 
write('1 kg cost ',d:2:2); 
writeln; 
write('Input (y)kg: '); 
readln(c); 
e:=c*d; 
writeln(c ,' kg cost= ',e:2:2); 
write('Input k rub: '); 
readln(k); 
m:=k/d; 
writeln(k ,' rub cost ',m:2:2 ,' kg.'); 
write('Press any key...'); 
repeat until 
keypressed;
end.

если надо пояснение пиши

# https://pastebin.com/V2MMpJeN

#

# A.

def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")

print(f"A. function(1230) returns {function(1230)}")

# B.

def function(digit): return digit >= 0 and digit <= 2**8

print(f"B. function(751) returns {function(751)}")

# C.

def function(digit):

if digit < 2: return False

if digit == 2: return True

i=2

lim=int(digit**(1/2))

for n in range(i, lim + 1):

if digit % n == 0: return False

# конец двойной табуляции

return True

# конец табуляции

print(f"C. function(17) returns {function(17)}")

n=int(input("<-- enter digit: "))

print(f"C. function({n}) returns {function(n)}")

print("Число", n, "простое" if function(n) else "составное")

Современный компьютер может обрабатывать числовую, текстовую, графическую, звуковую и видео информацию. Все эти виды информации в компьютере представлены в двоичном коде, т. е. используется алфавит мощностью два (всего два символа 0 и 1). Связано это с тем, что удобно представлять информацию в виде последовательности электрических импульсов: импульс отсутствует (0), импульс есть (1). Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком. Суть кодирования заключается в том, что каждому символу ставят в соответствие двоичный код от 00000000 до 11111111 или соответствующий ему десятичный код от 0 до 255.