Решение задачи Begin 33

#include <stdio.h>

int main(void)
{
    float X,A,Y;
    printf("X:");
    scanf ("%f", &X);

    printf("A:");
    scanf ("%f", &A);

    printf("Y:");
    scanf ("%f", &Y);

    float price;
    price=A/X;

    printf("Цена:%f\n",price);

    printf("Стоимость:%f\n",Y*price);

    return 0;
}

import random

X,Y = [random.randrange(1,10) for i in range(2)]
A = random.randrange(1000,10000)
price = A/X
cost_Y = price*Y

print(X,"kg = ",A," rubles")
print("1 kg = {0:.2f} rubles".format(price))
print("{0} kg = {1:.2f} rubles".format(Y,cost_Y))
									

program Begin33;
var
  X,A,Y,koszt,cen: Real;
begin
  Write('Введите кол-во конфет в кг: ');
  Readln(X);
  Write('Введите стоимость этого кол-ва в руб. : ');
  Readln(A);
  koszt:=A/X;
  Writeln('Цена этих конфет за 1 кг: ',koszt);
  Write('Сколько килограм этих конфет посчитать: ');
  Readln(Y);
  cen:=Y*koszt;
  Write('Цена ',Y,' кг. этих конфет равна : ',cen,' руб.');
end.