var f1,f2:text;
d,s,z,n:longword;
a,b,t,m,x:smallint;
begin
assign(f1,'input.txt');
reset(f1);
assign (f2,'output.txt');
rewrite(f2);
readln(f1,d,a,b,s,t);
if a>b then x:=a-b else x:=b-a;
if d mod s=0 then n:=d div s else n:=d div s+1;
if x mod t=0 then m:=x div t else m:=x div t+1;
z:=n+m;
write(f2,z);
close (f1);
close (f2);
end.
Если я не ошибаюсь "end" здесь вообще не нужно)
в переменную S вводится возраст Саши ,
в переменную М вводится возраст Маши
если S > M тогда
выводим "Саша старше Маши "
иначе
если S < M тогда
выводим "Маша старше Саши"
иначе
выводим "Саша и Маша ровестники"
Так наверно?