var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Range(2, 50, 2).Println; // четные
Range(1, 49, 2).Println // нечетные
end.
Щас бы университетские вопросы задавать на сайте для школьников :D