помогите решить в лазарусе

Question

№1 
даны два действительных числа. Заменить первое число нулем, если оно больше или равно второму. В противном случае утроить оба числа. 
№2 
Дан четырехугольник со сторонами, длины которого равны a,b,c,d. Вычислить его периметр и площадь, если известно, что угол между сторонами a и b равен пи/2.

Янина Борисова · Accepted Answer

№1: 
 
{$apptype console} 
 
var 
 a, b: integer; 
begin 
 write('первое число? '); 
 readln(a); 
 write('второе число? '); 
 readln(b); 
 if (a >= b) then 
 a := 0 
 else 
 begin 
 a := a * 3; 
 b := b * 3; 
 end; 
 writeln('результаты: '); 
 writeln('первое число: ', a); 
 writeln('второе число: ', b); 
end.