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

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.