Дано пятизначное число из интервала [10000, 32767]. найти сумму первой, второй и пятой цифр этого числа.

uses crt; var a,s: integer; begin  clrscr;   randomize;   a: =random(22678)+10000;   writeln('число: ',a);   s: =(a mod 10)+(a div 10000)+(a mod 10000 div 1000);   write('сумма 1,2 и 5 цифр: ',s); end.

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.