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

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

Решение:program project;var x,y,z :integerbeginwrite('Введите количество побед:');readIn(x);write('Введите количество ничьих:');readIn(y)write('Введите количество проигрышей:');readIn;z:=2 * a + 1 * b;writeIn('Команда "Динамо" набрала ',z,' очков:');end.PascalABC.NET