дано двузначное число, дописать к нему цифру k в конец и в начало. В Паскаль. Пожалуйста, помогите. Завтра последний день сдачи...

Я чуть чуть подправил, так будет правелнее

// дано двузначное число, дописать к нему цифру k в конец и в начало. var x,y:word;begin writeln('Введите двухначное число'); readln (x);while (9>x) or (x>99) dobegin //проверка на двузначночть числа writeln('Вы ввели не двузначное число попробуйте еще раз'); readln (x);end; writeln('Введите цифру (от 0 до 9) k'); readln (y);while y>9 dobegin //проверка на то что введена цифра writeln('Вы ввели не цифру попробуйте еще раз'); readln (y);end; x:=(x*10+y)+y*1000; write

writeln (x);end.

Спасибо Вам огромное!

Всегда пожалуйста

// дано двузначное число, дописать к нему цифру k в конец и в начало. var x,y:word;begin  writeln('Введите двухзначное число');  readln (x);  writeln('Введите цифру k');    readln (y);  x:=(x*10+y)+y*1000;  writeln (x);end.