Пожалуйста посчитайте плиз.Срочно.3 и 6

var a: integer;
begin
write('Введите а: ');
readln(a);
write('Результат: ');
if a<=0 then
write(sqr(a))
else
writeln('a>=0');
end.

var a,b,c: integer;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
write((a=b) and (b=c) ? 'равны':'не равны' )
end.