помогите решить!!!!!!!!!!!! ВАРИАНТ 3 задание 1!!!!!!!!!!!! в Паскале

Решение:

program project;

var x,y,z :integer

begin

write('Введите количество побед:');

readIn(x);

write('Введите количество ничьих:');

readIn(y)

write('Введите количество проигрышей:');

readIn;

z:=2 * a + 1 * b;

writeIn('Команда "Динамо" набрала ',z,' очков:');

end.

PascalABC.NET

program raf105;

var a,b,c:integer;

begin

write('Введите количество побед: ');

readln(a);

write('Введите количество ничьих: ');

readln(b);

write('Введите количество проигрышей: ');

readln;

c:= 2*a+1*b;

writeln('Команда "Динамо" набрала ',c,' очков');

end.

Программка написана на языке PascalABC