Написать решение программ в ПАСКАЛЕ
1. Найти сумму 1 и 3 цифр четырехзначного числа, произведение крайних цифр.

2. Петров и Васечкин купили х штук мороженного и пошли на урок. Васечкин съел k% от всего купленного мороженного, а Петров - половину того, что съел Васечкин. Остальное забрала Ольга Петровна. Сколько съел каждый из ребят и сколько забрала учительница?

1.

program z1;

var a:integer;

begin

write ('Введите четырехзначное число ');

readln (a);

writeln ('Сумма 1 и 3 цифр равна ', a div 1000 + a mod 100 div 10);

writeln ('Произведение крайних цифр равно ', a div 1000 * (a mod 100 mod 10));

end.

2.

program z2;

var x,k:integer;

begin

write ('Введите сколько мороженого купили Петров и Васечкин ');

readln (x);

write ('Введите сколько процентов мороженого съел Васечкин ');

readln (k);

writeln ('Васечкин съел ', x*k/100,' мороженого');

writeln ('Петров съел ', x*k/100/2,' мороженого');

writeln ('Учительница забрала ', x-x*k/100-x*k/100/2,' мороженого')

end.