Контрольная по информатике

Программа на Pascal:
var a, b, x, y : real;
i, Sum : integer;
begin
WriteLn (' Практическое занятие'); WriteLn (' Задача 7');
Write ( ' a = '); ReadLn (a); Write ( ' b = '); ReadLn (b);
WriteLn (' (2a - b) / 3 = ' , (2*a-b)/3:6:3);
WriteLn (' Задача 8');
Sum := 0; i := 0;
While i <13 do
begin i := i + 1; Sum := Sum + i; end;
WriteLn ( ' Сумма чисел от 1 до 13 равна ', Sum);
WriteLn (' Задача 9');
Write ( ' X = '); ReadLn (X);
if (x < 0) then y := -3 else
if (x = 0) then y := 0 else y := 3;
WriteLn ( ' Y = ', Y);
end.

6) a=2; b=4
7-9) Программу, значит, составить (написать)... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Для примера напишу 7-ое:

Вот, например, на Pascal:

 Program P7; 

uses crt; 

var a, b: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения переменных a и b (только числа). После ввода значения каждой из переменных нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите значение переменной a: a='); 

readln (a); 

write ('Введите значение переменной b: b='); 

readln (b); 

writeln ('Ответ: ', (2*a-b)/3 :0:2); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Вот на Python:

 print ("Введите с клавиатуры значения переменных a и b (только числа). После ввода значения каждой из переменных нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.") 

a=float (input (f"Введите значение переменной a: a=")) 

b=float (input (f"Введите значение переменной b: b=")) 

print (f"Ответ: {(2*a-b)/3}") 

Вот на C++:

 #include  

using namespace std; 

int main() 

{ 

    setlocale (LC_ALL, "RUS"); 

    double a, b; 

    cout