решить тест по информатике

1.
Var
  a,b,c:integer;
Begin
  Write('Введите а, в, с: ');
  Readln(a,b,c);
  if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,',  ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c));
End.

2.
Var  r,a:integer;
Begin 
Write('Введите радиус круга '); 
Readln(r); 
Write('Введите сторону квадрата '); 
Readln(a); 
writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a)); 
if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата');
End.

Var  s: string;  k: real;
begin 
write('Введите вес в килограммах '); 
Readln(k); 
Write('Во что хотите перевести (мгр, гр, Цн, Тн, КТн, МТн): '); 
Readln(s); 
case s of   
'мгр': write(k, 'кг = ', k * 1000000, ' мгр');   
'гр': write(k, 'кг = ', k * 1000, ' гр');   
'Цн': write(k, 'кг = ', k / 100, ' ц');   
'Тн': write(k, 'кг = ', k / 1000, ' Т');   
'КТн': write(k, 'кг = ', k / 1000000, ' Кт');   
'МТн': write(k, 'кг = ', k / 1000000000, ' Мт') 
Else write('Неправильно введена единица измерения'); 
End;
end.