Giúp em 2 bài pascal gấp với , mai em ktra rồi .

[letuan97]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp em với , đề đây :

 

[lamdetien36]

Bài 1:

var
	x, y: real;
begin
	writeln('Nhap X, Y: '); readln(x, y);
	
	if x >= y then writeln('A = ', x * x - y : 0 : 6)
	else writeln('A = 1.5');
	
	readln
end.

Bài 2:

var
	S: real;
	i: integer;
begin
	S := 0;
	for i := 1 to 50 do S := S + i / (i + 2);
	
	write('S = ', S : 0 : 10);
	readln
end.