Составить программу в Паскаль, которая удваивает все двузначные четные числа и печатает их.

Если нужно что-то исправить, пишите -- исправлю.varb:=0;i:integer;mas:array[1..49] of integer;Beginfor i:=10 to 98 doBeginif i mod 2 = 0 thenBeginb+=1;mas[b]:= i;Writeln(mas[b] + ' * 2 = ' + (mas[b]*2));End;End;End.