Realizzare dei sottoprogrammi risolutivi per ognuno dei seguenti problemi

	Contare il numero di linee, all'interno di un testo, di lunghezza minore, uguale, maggiore di K
	Visualizzare tutte le coppie di elementi consecutivi, all'interno di un file di interi, che hanno come primo valore K

Si chiede, per ognuno: Analisi del problema, Algoritmo risolutivo, Codifica Pascal, Comando MsDos – Like

Commentare il seguente programma

Program test;
type punta = ^integer;
var p1, p2: punta;
begin new(p1); p1^:=1; writeln(p1^); new(p2); p2^:=2; writeln(p1^ + p2^); p1:=p2; p2^:=3 writeln(p1^ - p2^); dispose(p1); writeln(p1^ * p2^);end;