Написать программу построения изображения с команды "Сместиться на вектор (x, y)"

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

бег - бог - бок - бак - мак - маг -шаг

может кто перепишет на паскаль

вот на c:

#include < stdio.h> int main(void){  int km, day;   day = 1;   km = 10;   while (km < = 200)  {  if (km == 20)  {    printf("20km in %d day\n", day);     }     km += km / 10;   day++;   }  printf("< 200km in %d day", day);   printf("\n");   system("pause");   return 0; }

заяц или