Лабораторная работа. Не знаю как решить...

uses crt;
var a,b,c:integer;
    d:real;
begin
clrscr;
repeat
write('Введите целое число c<>0 c=');
readln(c);
until c<>0;
a:=trunc(c mod 2+5/c);
b:=trunc(a div 5+c*c);
d:=b*b-4*a*c;
writeln('D=',d:0:1);
{если не нужен вывод уравнения, следующие 3 строки уберите}
write('Уравнение ',a,'x^2');
if b>=0 then write('+',b,'x')else write(b,'x');
if c>0 then write('+',c,'=0  ')else write(c,'=0  ');
if d>=0 then write('имеет действительные корни')
else write('не имеет действительных корней');
readln
end.

uses crt;
const max=100;
var k:array[1..max] of integer;
    n,i,j:byte;
    s:integer;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('k[',i,']=');
  readln(k[i]);
 end;
clrscr;
writeln('Исходный массив:');
s:=0;
for i:=1 to n do
 begin
  write(k[i],' ');
  s:=s+k[i] mod 10;
 end;
writeln;
write('Сумма последних цифр элементов массива=',s);
readln
end.