Напишите программу, которая по введенным с клавиатуры a, d, c, k находит и выводит на экран значения выражений x, y, z, если: x=d+c*y y=(a+(d-12)*3)*(c-5k) z=(c-d)*(x-y)

Basic:
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, k AS INTEGER, x AS INTEGER, y AS INTEGER, z AS INTEGER

INPUT a
INPUT b
INPUT c
INPUT k

y = (a+(d-12)*3)*(c-5*k)
x = d+c*y
z = (c-d)*(x-y)

PRINT x
PRINT y
PRINT z

3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию.
4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык).
5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом.
6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности  ее использования.
7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия) 

#include <iostream>
using namespace std;

int main()
{
int n, k;
cout << "n = ";
cin >> n;
cout << endl;
int a[n];
for (int i = 0; i < n; i++) {
cout << "a[" << i << "] = ";
cin >> a[i];
cout << endl;
}
cout << "k = ";
cin >> k;
cout << endl;
int c = 0;
for (int i = 0; i < n; i++) {
if (a[i] % 10 == k) c++;
}

int ret[c], pos = 0;
for (int i = 0; i < n; i++) {
if (a[i] % 10 == k) {
ret[pos] = a[i];
pos++;
}
}
cout << "Результат:" << endl;
for (int i = 0; i < c; i++) {
cout << ret[i] << ' ';
}
return 0;
}