Помогите решить пожалуйста дам 30 баллов Информатика 7 класс

Question

Помогите решить пожалуйста дам 30 баллов Информатика 7 класс

---

Answer 1

1.

program P1;

var

a,b,y:real;

writeln( 'Введите a=');

readln(a);

writeln('Введите b=');

readln(b);

y=(sqr(a)+a*b)/a*c;

writeln('Результат решения=',y);

end.

2.

program P2;

var

 N: byte;

begin

 write('Введите число = ');

 readln(N);

 writeln;

 writeln(' Последняя цифра: ', N mod 10);

 readln

end.