Фермер намерен купить корову, дающую не менее L литров молока ежедневно с жирностью не менее K процентов. Написать прог

алгоритм и программу выбора коровы. срочно!))

program my;
var a,s,a1,s1 : integer;
begin
write('Введите желаемое кол-во литров молока ');
readln(a);
write('Введите желаемое кол-во жирности ');
readln(s);
begin
write('кол-во литров у вашей коровы ');
readln(a1);
write('кол-во жирности вашей коровы ');
readln(s1);
if (a1 продолжите