Question

UNDEE AM GRESIT AJUTORR
program cartizan;
procedure cartizan(x,y:real);
var x,y:real;
writeln('x='); readln('X'; writeln('y='); readln('y');
if ('x>0')and ('y>0') the writeln ('cartizanul 1');
if ('x<0')and ('y>0')the writeln ('cartizanul 2');
if ('X<0')and ('y<0') the writeln ('cartizanul 3');
if ('X>0')and ('y<0')the writeln('cartizanul 4');
end;
begin
writeln('dati lui si la');
readln('x,y');
cartizan('x,y');
end.

Answer 1

Program cartizan;
var
x,y:real;
procedure cartizan(x,y:real);
begin
Writeln('x=');readln(x);Writeln('y=');readln(y);
if (x>0) and (x>0) then Writeln('Cartizan1');
if (x<0) and (y>0) then Writeln('Carizan 2');
if (x<0) and (y<0) then Writeln('carizan 3');
if (x>0) and (y<0) then Writeln('cartizan 4');
end;
begin
Writeln('dati lui si la');
readln(x,y);
cartizan(x,y);
end.