Question

Помогите, пожалуйста, составить программу по Паскалю.

Валя и Вера на своем садовом участке собрали А кг клубники. Из них В кг собрала Вера. Кто из девочек собрал клубники больше и на сколько?

Answer 1

program klubnika 
var a,b : integer; 

begin 
writeln('введите общее количество клубники'); 
readln(a); 
writeln('введите количество клубники, которое собрала Вера'); 
readln(b); 

if a-b > b then writeln('Валя собрала больше клубники') 
else if a-b < b then writeln('Вера собрала больше клубники') 
else writeln('клубники было собрано поровну');