Даны два числа a и b. Удвоить меньшее из них.

vara, b, k : integer;beginwriteln ('text');readln (a);writeln ('text1');readln (b);if (a>b) thenk:=b*2elsek:=a*2;writeln (k);end.